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Einleitung 


Jeder weiß, daß Computer für alle möglichen ernsthaften Zwecke verwendet 
werden können. 

Finanzkalkulationen, ‘industrielle Anwendungen und Textverarbeitung, 
zum Beispiel. Sie können uns jedoch auch auf andere Weise helfen. 

Wie schon das englische Sprichwort sagt: "All work and no play makes 
Jack a dull boy’; es ist sicherlich wahr, daß wir alle etwas brauchen, um die 
kleinen Rädchen in unserem Oberstübchen am Laufen zu halten, wenn wir uns 
nicht gerade mit den "wichtigen’ Dingen im Leben beschäftigen. Deshalb lesen 
wir Bücher, pflegen Hobbies und spielen. 

Brueghels wunderschönes Gemälde "Kinder im Spiel” zeigt uns, daß dies 
seit Jahrhunderten wahr ist, wenn nicht seit jeher. 

Dieses Buch zielt darauf ab, für jedermann zwischen 6 und 96 etwas zu 
bieten. Es gibt Spiele, die man für sich spielt, und andere, die man mit Verwand- 
ten oder Freunden spielen kann. 

Sie werden schnelle Aktion-Spiele finden, um ihre Fähigkeit zu testen, 
viele sich bewegende Objekte auf dem Bildschirm zu steuern. 

Puzzles und Knacknüsse, um Sie nachdenken zu lassen; Brettspiele, bei 
denen Sie Ihr Können gegen den Computer einsetzen; und natürlich einige 
wunderbare Labyrinthspiele, die vielfältige Anforderungen stellen. 

Eine Anzahl Spiele wurden so ersonnen, daß sie mit vergleichsweise 
kurzen Programmen, die wenig Zeit zum Eintippen benötigen, interessante 
Ergebnisse erzielen, die der Mühe wert sind. 

Wenn man sich "Kinder beim Spiel‘ nochmals ansieht, fällt einem etwas 
ein. 

Falls Brueghel heute leben würde, sähe sein Gemälde ungefähr so aus... 








Galaktische Monster 


Dort ist sie, entdeckt im x-y-Gz Radar. Endlich nähern Sie sich der Milchstraße. 
In nur 2,56 Protosekunden sind Sie sicher in Ihrer Heimatgalaxie! 

Aber es lauern Gefahren hier, und als Kommandant Ihres Schiffes wissen 
Sie nur zu gut, worum es geht. 

Sie behalten den XR-6-Schirm genau im Auge. Noch keine Alarmbereit- 
schaft. Die Spannung ist unerträglich ... 2,5 Protosekunden ... 2,0 Protose- 
kunden... 1,5 Protosekunden .. . oh nein! Dort ist er — 


DER VAN ALLEN ECKSTEIN GUERTEL 


Es gibt einige von diesen berüchtigten Gürteln, und in ihnen lauern die fürch- 
terlichsten galaktischen Monster. 
Keine Waffe kann Sie gegen diese rachsüchtigen Biester schützen, alles 
was Sie tun können, ist ihnen auszuweichen. : 
Wenn das Programm läuft, und Sie einen VAN ALLEN ECKSTEIN GUR- 
TEL sehen, dann können Sie sich durch Tastendruck bewegen: 


W,für ein Feld nach oben 
A, für ein Feld nach links 
D, für ein Feld nach rechts 


X, für ein Feld nach unten 


Diese schrecklichen galaktischen Monster werden sich immer näher heran- 
wagen. . 

Ihre einzige Überlebenschance ist auszuweichen! Wenn Sie einem Van 
Allen Eckstein Gürtel ein zweitesmal begegnen, werden die Monster noch 
aggressiver werden. Irgendwie scheinen sie jede Ihrer Bewegungen voraus- 
zuahnen. 

Viel Glück, Kommandant... nurnoch ein paar Protosekunden zu fliegen, 
und Sie sind sicher zu Hause! 


1O rem * c-64 galaktische monster * 
20 d$="FEEFREERENERERERETERTGRRTEN" 

0 s=54272 

35 for x=s to st24ıpokex ,Ornext 
26 pokes+t24,15 

>37 pokes,0O 

8 pokes+t1,.0 

39 pokes+5, 15:pokes+&ö,250 

40 dim x (12) 

50 dim y(12) 

80 goto 2000 

100 rem * bildschirm * 

110 print "=" 

120 for t=1 to 10 


10 


150 
140 
150 
160 
170 
180 
190 
200 
210 


2EO N 


250 
240 
SO 
>10 
SEO 
540 
330 
570 
al 

580 
>90 
A400 
410 
420 
430 
440 
4530 
y. 

460 
xu 

470 
480 
490 
300 
10 
S20 
3.30 
KON 
&10 
20 


yztı. 


430 
640 
[=1=18) 
[= 1-18) 
670 
u80 
= 28) 
700 
710 
720 


print spc (13) "= GODCANGDDad" 
next t 

p r ij n t sp c { 153 % ) “u BEE BEE SER ER FR BER BER “u 

Dr INN ERBE: 
»l=6 

yi=2 

for t=1 to 11 

x (t)=t 

y(t)=i1 

ext t 

ka=ka+.li 

return 

rem * bewegung des spielers * 

get ky$:if ky$="" then 470 

poke s+4,53 

for m=1 to 40:next m 

poke s+4,0 

print "2"stab a«l+15)sleft$t(d$,y1);'“ 


if ky$="d" then »1=x1+1 

if ky$="w" then yi=yil-l 

if kys="x'" then yl=ylil+l 

if ky$='"a'" then x1=-x1-1 

if «l1£1 then x1=1 

if yli<i then yl=-l 

if »«1>11 then «1=1l 

print "F"stab (x1+15)s;lefts (ds, ylds "ii 


print "A'stab x 1+1F);left$ (ds, yl)s "Wi 


for t=1 to 11 

if »1£>x(t) then 920 

if yli>y(t) then 320 

gosub 1020 

ca=-1 

next t 

return 

rem * bewegungen des monsters * 

for t=1 to 11 

print "W"stab (x (t)+1H) sy lefts(ds,y(t) 


ar 


if rnd(O)<ka then 900 
a=int (rnd (0) *4) 

if a=0 then 490 

if a=1 then 710 

if a=2 then 730 

goto 750 

x(t)ex (t)#+1 

gotno 760 

„(t)ax (t)-1 

goto 760 


11 


12 


Re) 
740 
7509 
7&0 
779 
780 
790 
BOO 
810 
820 
830 
840 
850 
BA0 


y(t)=y(t)-i 

goto 760 
ylt)zy(t)-i 

if »(t)<1 then 810 
if »(t) >11 then 830 
if y(t)<i then 850 
if y(t)>11 then 870 
goto 880 

„(t)=x (t)+1 

goto 960 

x (t)ex (t)I-1 

got.o 760 
y(t)=y(t)+1 

goto 9760 


870 ytt)=y(t)-i1 
880 print "Al"stab (x (t)+1F)s left (d$,y (t) 
ET 


890 
900 
910 
YO 
9350 
940 
9509 
90 


goto 9760 

aerli-x (dt) 

ya=y1-y(t) 

if rnd(O)z.8 then 950 

x(t)=ex (t)+son (2) 

goto 960 

y(t)=y(t)+sgn(y2) 

print "Z"stab (x (tt) +13); left$ (d$,y(t) 


Jg taen 

970 next t 

9980 foru=i to il 

990 print ""stab u W+IND;1lefts(ds,y(w) 


ya et 


1000 
1010 
1020 
10530 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
2O0OO 
2010 
2020 
SOSO 
rs 

2040 
050 
080 
2070 
20890 


next u 

return 

poke s+4,.5 

for 1=1 to 10 

for m=10 to S0+l1%*2 

poke s+ti,m 

next m 

next ] 

poke s+t1,20 

poke s+4,0 

return 

rem * hauptprogramm * 
ka=-kat.i 

gosub 110:rem bildschirm 
gosub 310:rem bewegungen des spiele 


br=br+1 

if not ca then 2170 
k=k+l:ca=o 
sc=sc+tat-br-5%*k 
at=at+2o 


2090 br=0O 

2100 if k<5 then 2020 

2110 print"®ende dieser runde." 
2120 print"ihre punktzahl:"; 
130 print sc 

2140 print"fuer eine neue runde run eing 
eben." 

2160) end 

2170 if yl=-11 then 2020 

2180 gosub #10 

2190 goto 2030 
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Zombies ım Sumpf 


Vorsicht! Hier hausen Zombies, und Sie müssen den Sumpf überqueren, in dem 
sie leben. Dazu müssen Sie über Floße gehen. Am Anfang des Spieles sieht der 
Sumpf so aus: 


SUMPF Ihre Position; 


wu “_ Sie stehen auf 
einem Floß 


Sie sind in der unteren rechten Ecke, und Sie müssen die schräg gegenüberlie- 
gende Ecke erreichen, um zu entkommen. 

Mit Hilfe der passenden Cursortasten legen Sie ein Floß neben dasjenige, 
auf dem Sie momentan stehen, und durch nochmaliges Drücken steigen Sie auf 
das neue. 

So weit, so gut, aber Vorsicht! Von Zeit zu Zeit wird eines dieser Zombies 
aus dem Sumpf steigen und über die Flöße rennen, die Sie verlegt haben. Wenn 
Sie ihm in die Quere kommen, wird es Sie fangen. Glücklicherweise können 
Zombies nicht besonders gut sehen, daher fallen sie oft von den Flößen her- 
unter, zurück in den Sumpf. 

Um dieses spannende Spiel erfolgreich zu spielen, müssen Sie ihre eigene 
Taktik entwickeln. Je länger und komplizierter Ihr Pfad ist, um so kleiner ist die 
Wahrscheinlichkeit, daß die Zombies Sie erwischen werden. Andererseits brau- 
chen Sie so länger, um über den Sumpf zu kommen und geben mehr Zombies 
Gelegenheit zu erscheinen. 

Oh nein! Hier kommen wieder ein paar dieser schrecklichen Zombies. Sie 
sollten besser einfach hoffen, daß sie Sie nicht erwischen. 


\ \ 
\ » un. 
N [ 
N \ PT 
Y I 
|» 
an > Rn 
Pr 
F.° 
aa Fi 
ih Im UBER: m 
r 8 RB; 
Il ib. 2 Mn 


er. 


PP TE 10777' 
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10 rem * cr-64 zombies im sumpf * 
20 dim a(14,97) 
SO for c=O to 14 
40) alc,O)z-lralc, Ni 
SO next 
sd for c=O to 9 
Al atd,nc)e-lratld,c)=-l 
oa next 
65 poke 33280, 2 
70 atll1,0)=15al0,12)=1l 
80 def fnr (a)=int trnd(OÖ)+D 
I0 emb=": BETEN KETRBHENG N = 
110 p1l$=" WEHH HH HENRI" 
130 mose'" Tara Else sr" 
150 drs="ii Eh "se > 
170 d$="AEEEREEEERERTEFERERETEEIERIEETE TI Be I fin Die a Di Ih 
ni" 
180 goto 2000 
200 rem * ausdrucken 1T$ auf x,y * 
210 print left$(d$,3#(y-VD+l)stab (Fr ul 
Y)st$s 
220 return 
S00 rem * initialisieren * 
>10 print "31"; 
a0 for li=l to 24 
a0 print "ılz 
ırem 39 leerzeichen 
>40 next 
350 m=Os:pxr=l3rpy=8:a(13,8)=1 
SEO KEPNiy=py 
>70 t$=pl$:gosub 200 
>80 return 
400 rem * spieler bewegen * 
410 rem input 
420 get in$:if in$="" then 420 
0 dx= (in$="Hl")- (ins="hi") 
440 dy= (int="EM") - (ins="lE") 
470 if dx=ÖO and dy=0 then 420 
480 on alpx+tdx,pytrdy)+1 goto 500,550 
490 goto 420 
„O0 rem * floss legen * 
10 x=px+tdx:y=pytrdy 
320 t$=eem$:gosub ZOO 
330 atk,y)=l 
S40) return 
Sud rem * bewegen * 
SEN) K=EDHTy=Dy 
70 t$=em$:gosub Z00 
380 pr=px +rdxıpy=pyrdy 
S90 if px=O or py=O then 6530 
SOO KEDHHNIyzDy 
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10 
HU 
SO 
&40 
50 
1-18) 
&70 
7909 
710 
715 
720 
730 
740 
750 
7&0 
770 
J=1 
780 
790 
795 
(=[el®) 
iO 
820 
FO 
840 
850 
80 
y)tl 
870 
21216 
970 
900 
910 
920 
IEO 
940 
950 
90 
970 
980 
970 
1000 
1010 


1020 


1050 
1040 
1050 
1060 
1070 
1980 
1090 


t$=pl$:gosub 200 


return 
rem * gewonnen * 
print dsy" gratuliere !"; 


for i=1 to lO:get s$:next 

get s$:if s$="" then 660 

run 

rem * monster * 

mz=1hsmy=B 

KEMXa yamy 

t$=mo&:gosub 200 

on fnr (2) gosub 880,990 

Iy=dxı ly=dy 

rem * neue richtung waehlen * 
if atmı+lx,.my+tly)«1l then 800 

if atme+ly,my-1x)=1 or almı-ly,my+tlx 
then 840 

rem * richtung behalten *# 
dx=1lx:dy=1ly 

gato 920 

rem * im sumpf * 

on fnr (4) gosub 880,890, 700,910 
if atmıtdz„.my+tdy)=-1 then BIO 

gato 920 

rem * moegliche richtung * 

on fnr (4) gosub 880,890,900,9710 
if d«=-1x and dy=-1y or almı+tdx,.my+d 
then 780 

goato 920 

dx= Ordy=-l:return 

dx=-1l:dy= OÖ:rreturn 

dx= O:dy= ilıreturn 

dx= l:dy= O:rreturn 

rem #* bewegen * 

KM yamy 

t$=em$t:gosub Z00 

m =nx td 

my=my+rdy 

lzx=dxı ly=dy 

if almı,my)=0 then 10530 

KEMKIYEMY 

t$=mo$:gosub Z00 

if ms=px and my=py then 10890 

goto 750 

rem * monster ertrunken * 

almz.my)=—-1 

KemKa yanmy 

t.$=dr$:gosub 200 

return 

rem * spieler erwischt # 

print d$;"sie sind gescheitert !'"; 


1100 
1110 
1120 
2000 
2010 
020 
A030 
2O40 
2OSU 


2060 


for i=1 to lOö:get s$:next 

get s$:if s$="" then 1110 

run 

rem * hauptprogramm * 

gosub >00: rem initialisieren 
goasub 400:rem zug des spielers 
m=m+1 

if fnr (px+py)>4 or m&S5 then 2020 
gosub 700: rem monster 

goto 2020 
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Tastenfeld Memory 


Dieses Spiel verwendet fast das gesamte Tastenfeld des Computers, um Ihr 
Gedächtnis zu testen. Achtzehn Tasten verbergen je eine Zahl, in der gleichen 
Weise, wie eine Spielkarte mit dem Rücken nach oben ihren Wert verbirgt. Es 
gibt neun verschiedene Zahlen, jede versteckt unter zwei Tasten. 

Die Symbole der Tasten, auf die Sie sich konzentrieren sollen, werden auf 
dem Bildschirm gezeigt. 


Q WE R IT Y 
ASDrF CH 
ZXCVDBN 


Drücken Sie eine Taste, und die Zahl, die die Taste versteckt hält, wird auf dem 
Bildschirm gezeigt. Drücken Sie zwei nacheinander, dann verschwinden ihre 
Symbole vom Schirm, wenn sie beide die gleiche Zahl verbergen. 

Anfangs werden Sie natürlich raten mussen, aber wenn Sie sich die 
Positionen der gezeigten Zahlen merken, sollten Sie bald herausbekommen, wo 
die Paare liegen. Am Ende des Spiels sagt Ihnen der Computer, wie groß Ihre 
intellektuellen Fähigkeiten sind. 


10 rem * c-64 tastenfeld memory # 
20 d$="EEKEREEEEEREEEEEEEEE! 

0 r=int (rnd (0)#9+1) 

40 print"=" 

so dim t$ (18) „,w$ (18) „,q$ (2) nn (2) 
60 a$="qwertyasdfghzxcvbn" 

70 b$="155997231546682847 


80 goto 500 
90) rem * zufaelliges erstellen des felde 
5% 


100 for n=1 to 18 

110 t$(n)=mid$(a$,n, 1) 
20 di=n+tr 
150 if di@i19 then 150 
140 di=di-18 

150 w$ (n)=mid$ (b$,di,1) 
1&0 next n 

170 return 

180 rem * bildschirm * 
190 for k=1to 3 

200 for j=1 to 6 


18 


10 
220 
230 
240 
250 
260 
270 
275 
280 
a9o 
300 
305 
310 
320 
350 
355 
340 
350 
S&0 
>70 
5380 
>90 
400 
+10 
415 
420 
430 
440 
450 
460 
470 
480 
490 


print'"=1" 

print right$ (d$, Sk) stab (5%* 5) 35 
print t$((k-1)*6+j) 
nextj,k 

return 

rem * eingaben # 

print 

q$ (Dymım 

for kk=1 to 2 

get ky%$ 

if ky$="" then 290 

if ky$=q$ (1) then 290 

8 (kkE)=Kky$ 

tu=tu+l 

rem * karte umdrehen * 

nn (kk)=0O 

for n=1 to 18 

k=int ((n-.S)/6) +1 

jen- (k-1)*6 

if t$(n)z“>q&(kk) then 410 
print"="sright$ (d$, 3#k+1) ı tab (5% 5); 
print w& (nd); 

nn (kk) en 

next n 

if nn(kk)=0 then 290 

next kk 

return 

rem * karten vergleichen * 
if w$(nn (i))&>w$& (nn (2)) then return 
te=te+i 

t.$ (nn (1))=" " 

t$ (nn (2))=" " 

return 





20 


SOO 
S10 
SED 
330 
40 
S50 
60 


rem * hauptprogramm * 

gosub 100:rem zufallsfeld 

goasub 190:rem bildschirm 

gosub 270: rem eingaben 

gosub 450:rem karten vergleichen 

if tei9 then 520 

print "SEkahl der umgedrehten karten 


Re 


70 


end 


Las Vegas a GoGo 


Haben Sie schon mal beobachtet, wie jemand Münze nach Münze in einen 
einarmigen Banditen geworfen hat, und sich gewundert, was da so faszinieren- 
des dran ist? Sie werden es schnell herausfinden, weil dieses Programm Ihren 
Computer in eine dieser sagenhaften Las Vegas Slotmaschinen verwandelt. 

Alle Spielanweisungen, die Sie brauchen, werden auf dem Bildschirm 
erscheinen. 

An bestimmten Stellen bekommen Sie eine Liste mit Wahlmöglichkeiten, 
zum Beispiel 


EINWERFEN, HALTEN, SPIELEN, BEENDEN 


Geben Sie Ihre Wahl ein, indem Sie den Anfangsbuchstaben der Möglichkeit, 
die Sie wollen, eingeben. Beispielsweise hält S die Maschine am Laufen. 

Die Räder sind mit 1, 2 und 3 numeriert. Wenn Sie ein Rad oder mehrere 
Räder halten wollen, tippen Sie die entsprechende Zahl oder Zahlen ein, nach- 
dem Sie H eingegeben haben. 

Lichter werden blitzen und Musik wird ertönen, wenn die Räder sausen. 
Haben Sie dieses Mal gewonnen? Machtnichts, Sie machen sicher den Haupt- 
gewinn... früher oder später! 





2 rem * c-64 las vegas a gogo * 

5 poke 53281,7 

10 sc=1024:c1=55296:c0r=54272 

20 def fnr (x)=int (rnd (1)#x+1) ıxernd (-ti) 
100 dimwf$(13),r 2,19, ja(1D:ja($S)=—-irj 
alkb)=--1:ja(7)=--1 

110 for v=1 to 1Fsread wf$(v),r(i,vV),r(2 
‚v)ınext 

120 dataa,,,Kyy5QsssJs5n#,8,40,"0",8,40, 
$,7,30 

150 data"A",5,25,'"5",3,20,"2",3,20,'"X",2 
‚10,#,2,10,%,5 

200 dim jp(4),jf(4),jc (4) 

210 for jo=1 to 4:read jp(jo),jf(jo)ınex 
t. 


21 


22 


a0 data 295, 1,294, 11,298,17,297, 10 

>00 dim wp (> ,v(4),hvch )awp (i)=2il: wp (2) 
=alaıWwp (a) 215 

=10 dim hp (I ,hf$(Dihp (D=45chp (2) =455 
hp 9) =457 

220 hos="whhihkt 


40 dim gp (4), N see gP 
(Adelllıgp (4)=69 
410 brb=" a 


SO0O nj=4ınh=üo:ing=ürgw=ü:ini=o:rnte-l 


310 pl EMEREEREN a 


„15 rem 39 leerzeichen 
SED hs=lefts (pl, 12) +" lhmile iin he iin En iM fe 1" 
530 for l=cer to cor+t24: poke 1,0: next 
540 poke cr+6,134: poke cr+S5,16 
SS0 hf=88:1f=115:dr=40 
S60 poke cr+2d4, 15 
70 goto 3000 
599 rem inkrement zum geld addieren 
Kun for ad=sgn (in) to in step sgn (in) 
Hin print" =nikbitotals "motadii " 
A20 if in>O then gosub 2700 
30 if inzö then for i=0 to Zıhf=3ß:lfel 
Aöbıgosub 2700 
Han next ad 
850 hf=88:1f=115 
AO mo=mo+in:return 
699 rem blink si$/s2$ and get in$ 
700 print "llaa s1i$: for de=1 to Z50:nex 
t 
710 get in$rif ins$i>"" then print "alla 
sı$: return 
720 print "lim S=+ on de=1 to Z20:ınext 
730 get in$rif in$>"" then return 
740 goto 700 
799 rem * doppelte DEREN GEN 
800 do=d:print "3 
B10 for jo=1l to 4 
820 pokesc+tjp jo)+F,jf jo)spoakecl+rjp (jo) 
+3, 0: jc (jo)=Ö:next 
80 nj=dsreturn 
899 rem * jackpot * 
900 hf=64:1f=188 
910 for i=l to 4ıprint "Ak 
I 4 KERN IE 
920 for c=l to je 
30 print "j"sıgosub 2700 
940 next ci 
950 hf=88: 1f=115 
960 return 


1000 gosub 2700: print" kkiaLotal: 0" 
1010 print "EREEE" tab (15) "a u 5 
1020 for i=1 to 4sprinttab (1) "2 
"next 

10530 printtab (19) "9 “ 


1040 printtab (15) "4 "3 Pe 

1050 for i=1 to &4:printtab (16) "9 "2 
next 

1080 printtab (15) "8" . 

1070 printtab (14) "39" a 

1100 print "EEEREERIIE A % = 1" 

1105 print '"SEEEEEE!" 

1110 for v=l2 to 5 step-1 

1120 printtab (FS) "Huf (v)wfs (lv) "= "r(l 
„v) 

1125 next 

1130 print "KEREEI" 


1140 for v=l12 to 5 step-i 

1150 print tab (28) "ws (Vdwnfl)ufhlev)" 
=!r (2,v)3 

1180 if jafv) then print"Ni+j"; 

1170 print:inext:return 

1199 rem * variable anpassen * 

1200 nt=ent+l:if wi>O then hb=-1:wi=O 
1210 for ho=1 to 3:hf$(ho)=" "tpokesc+thp 
(ho) +3, 180: next 

1220 if do then 1270 

1250 for jo=-1 to 4:rif jc(jo)=0O then 1260 
1240) je (jo)=jce(jo)-l:if jc(jo)>öO then 12 

50 

1250 njenj+ti:pokesctjp (jo),„jf (jo):poke c 
l+jp (jo) ,Ö 

1250 next josgoto 1280 

1270 de=dc-1lsif deö=O0 then gosub 800 
1290 print "EREEN" spec (11) " 


1290 if ja then jc=jc-1l:print"SERE" spc( 
je) " "aif jecö=ÖO then ja=o 

1300 if mo>mm then mm=mo 

1210 return 

1599 rem * nicht genug geld * 

1400 hb=-1:gosub 8BOO 

1410 ja=0:print "EEE N 
1420 print pl$ tab (10) "Iilleinwer fen ode 
r beenden'; 

1430 s1$="lallleinwer fen (e) ":s2$=" al" +br 
$ıgosub 700 

1440 if in$="s" then 1430 

1450 return 

1499 rem * moegliches halten * 
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1500 print pl%$ tab (5) "einwerfen,halten,s 
pielen,beenden"; 

1510 si1$=h$+hos: sä$=ehs+thfs (1) +" ma" +hf$ (2 
Y)+"Ma"+hf$ (2) 

1520 gosub 700:ho=val (in$)sif ho=Ö or ho 
>35 then return 

1530 nh=nh+l:if hf$(ho)=" " then hf$ (ho) 
="Sh":gotolS10 

1540 hf$&(ho)=" " 

1550 goto 1510 

1599 rem * kein halten * 

1600 print pl$ tab (5) "einwerfen, spiele 
n oder beenden"; 

1610 Ss 18=" Eh? 77": SD al "gosub 7 


1620 return 

1699 rem * was tun mit gewinnen”? * 

1700 print pl$;:if hb then 1720 

1710 print tab (8) "halten, "5; 

1720 print tab (10) "risiko,auszahlen"; 
1730 gotols10 

1799 rem * raeder drehen * 

1800 for wd=i1 to 3rif hfswd)t>" " then 
1830 

1810 fi=fnr (100)sif fiiS then vwmd)=fi-8 
*(jetfi)>O)sgoto 1850 

1820 v (und) =5- (Fi > I- (FIi>1O)- (FI>PID- fi 
2E)- (INFO) - Fir) - (Fi>6B)- (fi>87) 

1830 for de=2 to 500: next:hf=40:1f=200:9 
osub 2700 





1850 printh$ "aaa" spc (np (nd) -wp (1)) wf 
$(v(wd)) 

1860 nf=88:1f=115 

1870 next wdiereturn 

1899 rem * auf joker achten # 

1900 ;j=O0: for wd=1 to F3v=v(wd) 

1910 if v>4 then fv=vigoto 1950 

1920 jwend: j=jtl 

1930 if jc(v)>O then 1950 

1940 print"=EE" spc (jp (v)-80) "3 "2jc(v) 
=20:nj=nj-l 


1950 next wdıdo=(nj=Ö):if do then dc=15: 
print"=Eiidoppel!" 

19580 return 

1999 rem * gewinne berechnen * 

2000 hv=1F5:on j goto 2030,2010,2070 

2010 if not (ja and fv>10) then hv=fv 
2020 goto 2070 

20309 v(O)ev(H)ıv(4)=v(i)rif ja and v(jiw- 
1) >v(jw+til) then 2070 

2040 v(O)=15:v(4)=15 

2050 if vtjw+tl)>v(jw-1) then hv=v (jw-1): 
goto 2070 

20680 hv=v (jw+1) 

2070 for wd=1 to 3:hv (wd)=v (wd)sif viwWd) 
„5 then hv (wd)=hv 

2080 next wdsif hvtl)ishv(2) or hv(a)irh 
v(2) then Z100 

2090 if jathv(1)) then ja=-1Ir jc=19:gosub 
900 

20979 rem * gewinne berechnen * 

2100 for wd=l to FArif hv(wd)=13 then wis 

wi+l 

2110 next wdiif ja then wi=10%wi 

2120 ns=- (hv (1)=hv (2) )-(hv (2)=ehv(äa)) wie 

wi+r (ns,hv (2)) 

2130 if do then wi=2#wi 

2140 return 

2199 rem # risikoschleife * 

2200 dt=1:gv (1)=Z#wi:rgv (2)=0:gv (3) =int (3 

#wi/a)sgv (4)=int (wi/e) 





2210 ng=ng+l:print pl$ tab (8) " st.op 
s 

2220 forli=1toF:print"Z"spe (40*1li-12) "S 

= "ınext:rem 12 leerzeichen 

2230 rer+lsif r>4 then r=1 

2240 print"Sa" spc (gp(r)) gv(r)iıhf=i6ärtr: 

l\f=47*r:gosub 2700: print'"=Ekla " 

2250 if in$i>"s" then get in$:goto 2270 

2260 dt=(I+rnd(ti))*dt: for de=i to dtınex 

t:if dt-500 then 2280 

2270 print"=3" spc (gp(r)+1) " "ıgoto 2 
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2280 hf=88:1f=115: for li=i1 to Frprint "=" 
spc (40*li-12) " "ınext 

SEID) gw=gw+tgv (r)-wiswi=gv (r) return 

2599 rem * spielende * 

2400 print"S"shf=19: lf=4irgosub 2700 

2410 print"eingewor fen: ";sıx=ni:gosub 250 

Ö 

2420 print"ausgezahlt:"sıx=mo/4ıgosub 25 

O0 

2430 print"maximum in einer rundes "sıx=m 

m/4:gosub 2500 

2440 print"spielgewinn: "sıx=gw/4:gosub 2 

Oo 

2450 print"gehalten: "inh 


2460 print"spiele : "ing 
2470 print"runden "nt 


480 return 

500 if x=0 then x$=br$r",.000":goto 2520 
2510 x$=br$+str$ (int (x#100) /100r.001) 
520 print tab (18) "$" mid$ (x$, len (x$)-7 
„/)sprint 

25530 return 

2600 print "EREEERIIA" spc (25) sıgosub 26% 
Ö 

2610 for i=O0 to F:print' u SE "3: gosub 
2660: next 

2620 for wd=el to Frif hf$tad)=" " then p 
oke sc+twp (nd) „32 

A630 next wd 

2640 for i=ÖO to Frprint "HE Bla "3 2 gosub 
2ö&sd:nert 

550 return 

2660 for de=ö to BOrnext 

2670 return 

A700 rem * sound * 

27209 poke car+i,hf:poke cr,1f 

7535 poke cr+4,17 

740 for t=1 to drinext 

2745 poke cr+4,16 

750 return 

2999 rem * hauptrogramm * 

000 gosub 1000:rem bildschirm 

SO10 gosub 1200:rem anpassen 

A020 on -E2*hb- (mo>1)+1 gosub 1400, 1500,1 
400, 1500 

SOS0 ca=- (in$="e")-28* (ins="s")-38(in$="b 
n ) 

5040 on ca goto 3100, 3200, 4000 

3050 goto 3020 

3100 ni=sni+lrin=4:gosub #00 

„110 if mo>mm then mm=mo 


3120 goto 3020 

=e00 in=-2:ıgosub H00 

„210 gosub2ö00:gosub 1900:rem raeder dre 
hen 

see0 if do then 3240 

250 gosub 1900:rem jokers 

5240 gosub Z000:rem gewinne 


3250 if Kisten" "or hescDda>" "or hf 
$(3)£>" " then 3280 


SR60 hb=O:lweni:tif wi>O then 3300 

=270 gotoSFo1loO 

2e80 hb=-l:if wi:lw then 3300 

ed print" ERENSM"spc (11) "sie verloren " 

ıhf=zlslf=154:gosub 2700: fori=ötLo2000 

3295 nextihf=88: 1lf=115:goto F010 

SS00 print "ABEREE" spc (11) "sie gewannen 
rl u 

510 for du=1 to wi:hf=108: 1lf=2235: gosub 

2700: for i=0 to S0rnext:hf=B88:1f=115 

S320 next du 

5530 if moxz then hb=-i1 

aa40 if wi>499 then 3400 

550 gosub 1700:rem anweisung holen 

60 ca=- (in$="h" and not hb) -2% (in$="r" 

It (ins="a") 

“Ss70 on ca goto 3600,.3500, 3400 

„580 goto 3340 

S400 inzwi:gosub s00:gatoF010 

SS00 hb=-1l:gosub 2200:rem spielen 

»us10 if wi>O then 3300 

320 goto 3290 

S600 wi=ürgoto F010 

A000 gosub2400:rem ende 

4005 poke 54296,0 

4010 end 


27 


Papagei 


Papagei ist ein sehr einfaches Reaktionsspiel. Spielen Sie es an einem regneri- 
schen Tag mit einem Freund (besonders, wenn Ihr Freund ein paar Gläser Bier 
getrunken hat!). 

Am Anfang des Spiels fragt Ihr Computer Sie unverschämt: 


BIST DU SOWEIT, PAPAGEI? 


Ja, er nennt Sie einen Papagei! Drücken Sie irgendeine Taste, und der Computer 
gibt sofort einen Buchstaben aus. 

Sie müssen den gleichen Buchstaben so schnell wie möglich eingeben. 
Und weil Sie jeden Buchstaben nachtippen, sind Sie wirklich ein Papagei! Das 
Spiel wird wiederholt für etwa 10 Sekunden, und dann zeigt der Computer Ihre 
Punktzahl. 

Wie gut sind Sie als Papagei? 

Machen Sie einen Wettstreit mit Ihren Freunden und versuchen Sie den 
Titel eines "Super-Duper Papageis” zu gewinnen. (Mein Rekord ist 19 - Ich 
unterrichte Papageien!) 





10 rem * c-64 papagei * 


20 print "= “pc (10). " 
0 print " "spe (10)"3 " 
40 print " "spc (10) "1% " 
sÖ print " "spc (10) '3 " 
s0 print " "spec (10) "EB " 
709 print " Ei" spc (12) "Spapagei" 
75 print 

80 a=65:b=236 

90 c=l 

100 print " bist du soweit, papa 
gei”" 

110 get a$:if a$="" then 110 

120 print 

150 t=ti 


140 x$=chr$ (a+tb#trnd (1)) 

145 print x%; 

150 get a$ıif a$i>x$ then 150 

160 if ti-t>600 then 180 

170 c=c+rl:goto 140 

180 print 

190 print "punktzahl:"sc 

200 print "zeit:"zint ((ti-t)/.6) 7/1005; "se 
kunden" 


Kentucky Derby 


Meine Damen und Herren, sie sind gestartet. Red Arrow hatte einen guten Start, 
Blondish Boy macht seinem Jockey Schwierigkeiten... Und dort ist die be- 
rühmte Spanish Lady, auf der Innenbahn. Dies ist wirklich ein erstklassiges, 
spannendes Rennen und wir haben gerade erst angefangen! Sie kommen eben 
aus der ersten Kurve... Mickey Finn hat die Führung übernommen, hart be- 
drängt von Speedy Gonzales... 

Das Kentucky Derby ist ein Pferderennspiel. Es gibt in unserem Kentucky 
Derby nicht so viele Pferde wie im wirklichen Rennen - es sind genau drei - aber 
sie ihn. 2 lange Runden durchlaufen (mit Computerpferderennen ist alles 
möglich!). 

; Am Anfang des Spieles werden die Quoten für jedes Pferd bekanntgege- 
en. 

Nun können Sie Ihre Wetten plazieren. 

Solange Sie Geld haben, können Sie immer wieder wetten - diese Pferde 
werden nie müde. 

Nach dem RUN-Befehl sehen Sie: 


SETZEN SIE JETZT DIE QUOTEN: 
PFERD 1:19 ZU 1 
PFERD2: A4ZU1 
PFERD 3: 20 ZU 1 


(Die Quoten sind für jedes Rennen anders). 


SIEHABEN NOCH... DM 

IHR EINSATZ AUF PFERD 1 IST... 
Wenn Sie kein Geld mehr haben, sagt Ihnen Ihr Computer frech: 

SOVIEL KOENNEN SIE NICHT AUSGEBEN 
Und wenn Sie etwas besser dran sind: 

SIEHABEN NOCH... DM 
Gleich nachdem Sie alle Ihre Wetten eingegeben haben, erscheint auf dem 
Bildschirm die Rennbahn mit den Pferden am Start. 

Die Quoten und die Wetten werden im unteren Teil des Bildschirmes 
angezeigt, und dann sehen Sie: 


START??? 
Drücken Sie RETURN, und es geht los! 
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10 rem * c-64 kentucky 


derby * 


20 d$="SEEREEEEEIEKEEERETEIGIETIEENEN 


„0 gosub 1400 


200 rem * hauptprogramm * 


E20 print "2]"3 

230 gosub700 

250 gosub 1200 

260 print""ds"aimein 
270 gosubZ000 

280 goat.o400 


20 print""ds"Snelepferd "wi" hat gewonne 


pn 'rirııı9 


nn forh=1to3000:next 


a5 cer=cr+i (wi)*p (wi) 
26 restore 


57 foru=dtoS:pokev+tu,Ö:rnext 


358 yl=60:y2=100: y3=140 


39 x 1l=OıxD=0:4:=0 


>40 if cr:>O then 230 


50 print"sisie sind ruiniert !#" 


>60 print"ich hoffe, 
ugelernt." 
„BO end 


sie haben etwas daz 


400 rem * einen schritt bewegen + 


405 tA=ernd(ti)#örl 
410 alsehradlehıale) 
415 ift%=1thenal= 
420 ift%=äthenas=d 
425 an „thena:=g 
„OO x l=x 1+alıx Dex 2+a2 
4.55 ifx 1:252thenx 1=0 


nm 


Y 


In 


„aeylras 


l=&,30:cl=ec1-1 


440 ifxarasäthenx2=0:yd=-100:cH=eua-1 


445 ifxa>r2SäthenxF=0ry 
450 ifx1>110 and «1:12 
=14:x1=x1- Srenbolevr 
455 ifx2>110 and Sail 

=14:; a 


ds) i 
=14:x 


ne 


ns 
Pr 


465 ifxil: 
=14:x1=xl-al+tä:ıpokev,x 
470 Ka 
= ld: x ex Z-astraipokevtz 
475 ifn: 


=1l4ıx. 
ABO i 
»l-al 

i 


. 
P 


en 74 
=]12!0 and x» 1ı= 


. x » 
SSH SUSnSnSuSnSen! 


Lr ; er 


f:J 


110 and x>:120 then yley3-Odsu: 


dl: BVar [2 1: HR LFN +2 


==140:ch=ch-1 


OO then yl=yl1-OZrul 
i:xl=ex1+r2 
=0 then yarya-0l:u: 


au Dun 
an A 

. 
%) 


ge [2 


3=aF+2:pokev+4, xIın3endt2 
160 and 1170 then yl=yl+rozzul 


lıxl=x1r2 


la0 and x2%170 then yazyarodıud 


ne Mans CI 


pn ] 
q HKEaNMaSFTNate 


160 and x3:170 then ya=eyi+üsru: 


Ir .r -_.,n 
BE ENZ 
q KEN 


140 then ul=14:: 


Eu} 
mh 
H 


485 yvar=1l20 and »Eri=1640 then uR=el4ıxd= 
Karasts:pokevträ, xdıxdexdtz: 
490 ifxSr=120 and xFr=140 then u3=e14ıxe 


Ylmal+äıpokev+t4,zZıxdexd+n 
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O0 
SO 
510 
319 
IE0 
n 
30 
Sa0 
SS0 
70 
980 
3970 
HOO 
700 
720 
SU 
740 
750 
760 
770 
780 
OO 
00 
910 
20 
930 
940 


950 nn 


I60 
970 
980 
990 
1000 
1010 
1020 
1050 
1040 
1050 
1080 
1070 
1080 


1090 


1100 
1110 
1120 
1125 
1150 
1140 
1150 

nic 
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iful=14then ul=13:gotoS10 

ul=14 

ifug=14then ugrliıgotod2o 

uzs=14 

ifu5=14then us=l13:goto530 

us=14 
poke2040,ul:pokeZ04l,us:poke2042 
pokev,x1: Pokev+2,x2:pokev+4,x7 
pokev+l,ylspokev+ti,yZıpokev+ä,y3 
ifce1X0öthenwi=l1:goto330 
ifce2t0thenwi=z:gotoS530 
ifc3<Othenwi=hrgotoF3o 

got. o400 

rem * pferde initialisieren * 
wi=O 

fork=1t03 

x» (k)=20 

e-lel:cZelsıchel 

p (k)= (int (rnd (O)*5) +1) /5 

v(k)=p (k)&#dv+vn 

t (kE)=SRrtk-1) +3 

next & 

rem * wetten plazieren * 

pt=0 

fori=1to3 

p(i)=(vti)-vn) /dv 

pt=pt+p (i) 

exti 

fork=1to} 

p(k)=int (pt/p(k)) 

nextk 

print'="; 

Print "RER |" 
print" setzen sie jetzt 
PriNt "RER" 
print 

print"die quotens' 

print "sinds" 

fori=1to03 

print"pferd"sis"s "sptid)s"zu 1" 
nexti 

print 

print"sie haben noch"scrz; "Hl dm 
fori=1to3 

print"ihr einsatz auf"; 
print"pferd"si; "ists" 

inputi (i) 

re=cr-i(i) 

ifreiO thenprint"soviel koennen 
ht ausgeben'":gotoil1l20 


„us 


sie 


1160 crecr-i (i)sprint " EEREEEREREs ie hab 
en noch"ser; "Bi dm " 

1170 nexti 

1180 return 

1200 rem * bildschirm * 

1210 print"="; 

1220 print '"EEREEREEEEEEEIRTEIE 

1230 print "El" 

1240 print"Ei" 

1245 print:print 

1250 print "CCEECECCCCCCECCCECCCCCCECCCECCE 
CEEREEGERBE" 

1260 print"quoten: "sp(Dytab (Id) ;p (Ad)y;t 
ab (18);p (3) 

1270 print "wetten: "icDdstab (12), 1 (dd; 
tab (18); 1i (3 

1280 print left$(d$,t (1) -3) ; "CEECCECECEECE 
ECCCECCECCCECECCECCCECCECCCEECEE" 

1290 fork=1to} 

1325 print left$(ds,t (k)+)y" 

NM " 

==0 print left$(d$,t (k) +4): "CECECECCECECE 
GECLCCCCCCECCEECCCECECEEEEECEE " 

1540 next.k 

1341 print "=" 

1342 for r=i1tolö:printtab (7), "IE 

Pe E 

1343 nextr 

1344 printtab (ZI); "ui finish Pe 
1250 input "start ????"sa$ 

1370 return 

1400 rem * intialisieren * 

1420 vn=2:dv=l:vu=: 

1430 yl=50:y2=100:y3=140 

14409 cr=100:ul=14: u2=14: u3=14 

1450 x 1=0: u 2=0ıx 2=0 

1440 return 
000 forn=Otoös:readg: pokedFs+tn, ginext 
2005 forn=Otods:readga:poke89&6+n, qinexrt 
2010 data 0,0,0,0,0,0,0,0,0,0,0,24 
2020 data 0,0,52,0,0,128,0,0,246,3,255, 2 
24 
2030 data 7,255, 192,15,255,128,31,255, 12 
8,58, 1,128 
2040 data 76,0, 192,24,0,76,48,0,49,0,0,0 
2050 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0 
20609 data 0,0,0,0,0,0,0,0,0,0,0, 24 
2070 data 0,0,52,0,0,126,0,0,248, 3,255, 8 
24 
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080 data 7,255, 192, 15,255, 129,21,255,12 
8,8, 1,128 

2090 data 67,2,0,2,1234,0,0,204,0 

2095 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0 

2100 v=-535248:pokev+tzl, 7: form=2049L02042: 
pokem, I2:next:pokev+:3,0 

2105 pokev+tz2},7:pokev+t27,7 

a140 pokev+40,13 

2150 return 
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Regenbogenquadrat 


Ein zweidimensionaler Würfel? Natürlich unmöglich, aber dieses Spiel, das 
auf dem Computerbildschirm gespielt wird, ähnelt in vielen Aspekten Rubiks 
Zauberwürfel. 

Sie werden 25 farbige, zufällig verteilte Felder auf einem 5 mal 5 Brett 
sehen. Die Reihen der Quadrate auf dem Brett sind folgendermaßen numeriert: 


1 


2 


6 78 99 
Das heißt, die waagrechten Reihen sind von 1 bis 5 durchnumeriert und die 
senkrechten Spalten von 6 bis 9 und dann 9. 
Wenn Sie die Nummer einer Reihe eingeben, werden die Felder in der- 
jenigen Reihe um eine Position bewegt. In einer waagrechten Reihe wandern 


die Felder nach rechts, in einer vertikalen nach unten. Ein Feld, das am Ende 
einer Reihe verschwindet, taucht am anderen Ende wieder auf, etwa so 


BR Be 


Nasen 


in einer waagrechten Reihe, oder so 


r 
[ 
4 
E 


in einer vertikalen. 
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Der Sinn davon? Sie müssen die Felder zu fünf waagrechten Streifen von 
je einer Farbe ordnen. Klingt einfach... aber ist es das auch? 


IO rem * c-64 regenbogenquadrat * 

20 print "#":poke 36879,59 

so dim a% (5,59): for i=Ö to 4ıread a%: for 
J=d0 to 4:a% (i,j)=afınext j,i 

40) data28,5,51,158,30 

0 ırem rot,„weiss,blau,gelb,gruen 

&0 goto S10 

100 rem * bildschirm * 

110 print ia ll -—-&---7-—--8----9---O---] 


120 for i=5 to 1 step -1l:print spc (10) 
I"sspc (15): "7" 

150 a$=right$ (str$ (i),1L)sprint spc (10) a 
$:spc (15) ,a$ 

140 print spc (10) "1]"sspc (159), "I" 

150 next:print "ieh --&--—-7--8----Oo. 
Ok." 

160 print "A's:for i=O to 4:for j=1 to 3 
:print:print spc (10) "All"ssfor k=0 to 4 

170 print chr$(a% (i,k))s" nsanexrt EK,j, 
i 

180 return 

200 rem * drehen # 

210 for i=5 to 1 step -lsa%tla,i)=a% (a,i- 
I)ınext 

220 3% (a,0)=a% (a,S) return 

a>0 for i=5 to 1 step -1:a% (i,a)=a% (i-1, 
a)snext 


2 


N 


w 
i Pr 
ZN 
er 
ZEN 

[4 


Di 5 


en 
GT u u 
un 
A 
“ 
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240 aA (0, a)=a% (S,a)ıreturn 

SOÖO rem * hauptprogramm * 

„10 goasub 110: for w=ö to Zdrta=int (Srrndl 
IDd)son Itztrnd (1) gosub 210, 2350:gosub 16 
Diınext w 

Sad get a$:if ab="qa" then sys 6932534 

330 a=val (a$t):if a$="0" then as=10 

340 if a=0 then 950 

suO if a>5 then a=a-ö6:g0osub Z30:goto 570 
Jo) a=S-argosub Z10 

>70 gosub 1&0:goto 520 
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Qui Vive 


Auf Qui Vive sein, heißt wachsam zu sein und aufzupassen. Dieses Spiel heißt 
Qui Vive, weil man, um es erfolgreich zu spielen, dauernd auf Gewinnstellungen 
achten muß. Die Regeln sind einfach, sehr im Gegensatz zum Programm, das sie 
enthält. 

In der Tat stellt es eine ziemliche Herausforderung für den Programmierer 
dar. 


Qui Vive wurde von Eugene de Wolf erfunden und wird auf einem 
quadratischen 5 mal 5 Brett gespielt. Jeder Spieler hat fünf Steine und muß 
versuchen, sie in eine von sieben symmetrischen Mustern anzuordnen. 


Diese sind: 

eo — 9 — 9 — 9 —0 
eine waagrechte Linie, z.B. . . . ® . 
eine senkrechte Linie, z.B. . 


eine Diagonale, z.B. . .: © - : 
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e.— | —o0 
ein gerades Kreuz, z.B. ® 
ns 
ein schiefes Kreuz, z.B. . 8 
ee - ® 


ein liegendes V, z.B. 


/. 


ein umgedrehtes V, z.B. : © - © 
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Am Anfang des Spieles ist das Brett leer, Sie und der Computer sind abwech- 
selnd an der Reihe, um Steine zu plazieren. Die Felder auf dem Brett sind so 
beschriftet: 


@) 11 12 13 14 15 
@Q) 16 7 18 19 20 


() 21 22 23 24 25 


®®®©® ® 


Um einen Stein auf irgendein bestimmtes Feld zu legen, brauchen Sie nur die 
entsprechenden Koordinaten einzugeben: 

Zum Beispiel, für Feld 21 geben Sie A1 ein, für Feld 12 B3, etc. Ihre Steine 
werden durch einen Ring angezeigt, die des Computers durch einen Kreis. 
Wenn alle zehn Steine auf dem Spielfeld plaziert sind, und keiner gewonnen hat, 
geht das Spiel weiter, indem Sie und der Computer abwechselnd ziehen, um 
eine Gewinnstellung zu erreichen. Um einen Ihrer Steine zu ziehen, geben Sie 
erst die Koordinaten seiner jetzigen Position ein, und dann die der Position, wo 
Sie ihn hinstellen wollen. 

Sie müssen auf Möglichkeiten achten, selbst eine Gewinnstellung zu 
schaffen, aber gleichzeitig sicherstellen, daß Sie jeglichen Gewinnzug des 
Computers verhindern. 

Dieses Programm ist eine der interessantesten in diesem Buch. Es enthält 
eine Liste, nicht nur von den 42 möglichen Gewinnstellungen, sondern auch 
von den über 1®® besonders starken Stellungen, in denen ein Spieler die 
Möglichkeit hat, eine von zwei Gewinnstellungen zu schaffen. Während des 
Spiels kontrolliert der Computer die Spielsituation und entscheidet, welches der 
bestmögliche Zug ist. 

Wir empfehlen Ihnen, dieses Spiel auf einem normalen Schachbrett ge- 
gen einen Ihrer Freunde zu spielen, bevor Sie mit dem Computer anfangen. Sie 
werden schnell sehen, was für ein herrliches Spiel es ist. 
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Id rem * c-64 qui vive * 

20 poke646, 13 

50 dim sf (41,4),so (41) 

40 dim d (107,1) ,df (15,8) 

&O dim cc (4, 1),b (4) ,c (4) 

79 goto 3000 

100 rem * punkte von df berechnen #* 
110 gv=O:p1l=0:p3=0:c1=0:c2=0 

120 di=b (df (nf,W)sda=b (df inf, 2) 
130 if di=1 or d2=1 then pl=l 

140 if di=10 or d&=10 then cl=1o 
150 di=b (df (nf,@2d)sd2=b (df (nf,3)) 
140 if di=1 or d2=1 then pE=l 

170 if di=10 or d2=10 then c2=10 
180 gv=b (df (nf,4))+b (df (Inf, I rb ldf (nf,& 
)) 

190 p=gv+pi+rpzs+tci+recz 

O0 if gv=30 and (c1=0 or c2=0) then p=p 
10 

210 if gv=5 and (pl=0 or pZ=d0) then p=pri 
20 return 

00 rem * einzelfiguren (sf) initialisie 
ren %# 

„10 for i=O0 to 4l:read x$ 

320 for j=l to 5 

330 sf (i,jrld)=asc (mid (6, jı1))r65 
>40 next j„isreturn 

SO rem v (av) 

360 data ugmsy,plhnt,kgcio 

>70 data agmie, flirnj,.kKqwso 

=80 data agmqu,bhnrv,ciosw 

390 data eimsy.dhirx,„cgkow 

40 rem schiefes kreuz 

410 data acgkm,bdhln,ceimo 

420 data flhpr,gimgs,hjinrt. 

„OÖ data kmquw, Inr vx,moswy 

440 rem plus (+) 

450 data bfghl.aghim,dhijn 

460 data gklmg,himnr,imnos 

470 data lpgrv,marsw,nrstx 

480 rem diagonalen (N 

490 data aygmsy,eimgu 

SOO rem spalten (i) 

10 data afkpu,bglgv,chmrw 

S20 data dinsz ,„ejoty 

SS0 rem reihen (=) 

40 data abcde, fghij,klmno 

50 data parst,uvwuxy 

Sas rem 

S60 rem * doppelfiguren initialisieren * 
570 for i=O0 to 107 step IZzıread «$ 


s80 for j=O to 11:for k=0 to 1 

S90 l=2%*j+tk+l:d(irj,k)=asc (mid$ (x$,1,1)) 
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&00 next K,jsi 

s10 return 

620 data "171:lalcleilmiolp2>2"2b2j" 
650 data "393:3=3739474:4=4?4a4g40" 
640 data "4p5' 5634556 br schbehm7=7a" 
650 data "7c7i1707p8>8b6b848j 9?9Ie9Kkı 7?" 
s60D data ":aseıksorps ?3"sdı jteicsi" 
670 data "=g=ei=o>f>h>j?g?k?p"f"j"1" 
680 data "agaiakamaoapbhb jbncicmep" 





690 data "djdldnekemeofr fwngsgquhthw" 

700 data "irixjsjxktkxirlymsmyntny" 

790 rem 

800 rem * doppelfiguren berechnen * 

B1O tc=4:tn=O 

820 for i=Ö to 4:c(sf (d(df,O),i))=Lınext 
850 for i=O0 to 4:sf=sf (dtdf,1),i) 

840 if c(sf)=1 then 860 

850 df (nf,tn)=sf:rtn=tn+1l:goto 870 

860 df (nf,te)=ssfitcetctlic(sf)=0O 

870 next i 

880 for i=O to 4:5f=sf (d(df,O),i) 

890 if c(sf)=1 then df (nf,tn)=sf:stnetn+i 
ıc(sf)=0 


D 


900 next i:return 

1000 rem * ausgabe des spielfeldes * 
1005 print spc (12) "Ef abcdekl" 

1010 for i=0 to 4:print spc (12)5-is: for 

j=0 to 4 

1020 f=i%Itj 

1030 if b(f)=O then print "."; 

1040 if b(f)=1 then print "W"; 

1050 if b(f)=10 then print "Q"; 

1060 next j:print S-i:next i 

1070 print spc (12)"E abcdekl" 

1080 return 

1100 rem * besitzer sf bestimmen * 

1110 om=-1:wm=-1 

1120 for sf=0 to 41 

1130 p=b (sf (sf,O))+b (sf (sf, 1) )+b (sf (sf,2 
Y)+b (sf (sf, HD) +b (sf (sf,4)) 

1140 if p=0 or p=10 or p=20 or p=30 then 
so (sf)=10:goto 1240 

1150 if p<»>40 then 1190 

1160 gosub 1250 

1170 gosub 1290 

1180 wm=l:ssf=41l:goto i240 

1190 if p>Z20 or p“35 or p=il or p=12 then 
so (sf)=O:goto 1240 

1200 so (sf)=1 

1210 if p=4 and om=-1 then gosub 1250 
1220 if p=14 then gosub 1290 

1230 if p=5 then sf=41 

1240 next sf:return 

1250 rem * obligatorischen zug (om) fest 
legen * 

1260 for i=0 to 4 

1270 if b(sf (sf,i))=0 then om=sf (sf,i) 
1280 next isreturn 

1290 rem * festgenagelten stein festlege 
n * 

1500 for i=0 to 4 

1310 if b(sf (sf,i))<>10 then 1350 

1320 for j=0 to cc-i 

1550 if sf (sf,i)=cc (j,O) then cc(j,1V)el 
15340 next j 

1350 next i 

1350 return 

1400 rem * besitzer df bestimmen * 

1410 nc=O:np=0:nf=0 

1420 for i=0 to 15 

1430 df (i1,8)=-1 

1440 df (i,7)=0O 

1450 next i 

1450 for df=O to 107 


1470 ol=so (td (df,O))so2=so (d(df,1)) 

1480 if ol“t>o2 or ol=0 or o2=0 then 1600 
1490 gosub 800 

1500 gosub 100 

1510 if p=4 or p=14 then df (nf, T)=i1:goto 
1540 

1520 if ol=1 or pi=df (nf,8) then 1400 

1530 df (nf, 7T)=10 

1540 df (nf,8)=p 

1550 nf=0 

1560 for i=ö to 15 

1570 if df(ti,„8) >=df (nf,8) then 1590 

1580 if df (i,7)=0 or df (i1,7)=10 then nf= 

1 






BZ 


1590 next i 

1&00 next df 

1510 return 

180060 rem * strategischen wert eines zugs 
bestimmen # 

1810 if wm=l then 1960 

1820 mc=O0:n2=0 

1850 for nf=0 to 15 

1840 if df(nf,7)=0 then 1900 
1850 gosub 100 

18680 if df(nf,7)=1 then 1890 
1870 if p=mc then n2enz+l 
1880 if p>mc then mc=pin2=l 
1890 if p=4 then nf=15 

1900 next nf 

1910 if pp=-1 then 1960 

1920 if p=4 then return 
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1930 if mcimp then return 

1940 if mc=mp and nZinil then return 

1950 if mce=mp and n2=nl and rnd (O)<.5 th 
en return 

1960 mp=mc:ınlend 

1970 pp=cp:pt=ct 

1980 return 

2000 rem * zug des spielers * 

2010 if pc{5 then 2050 

2020 print "welchen stein moechten sie z 
iehen"; 

2030 gosub 2130: pt=x 

2040 if b(pt)<>1 then print"nicht moegli 
ch":goto 2020 

2050 print"wohin moechten sie ziehen"; 
2060 gosub 2130: pp=x 

2070 if b(pp)<>öO then print "nicht moegl 
ich"ıgoto 2050 

2080 if pc=5 then b (pt)=0O 

2090 if pc<5 then pc=pc+1 

2100 b(pp)=1 

2110 gosub 1000 

2120 return 

2130 rem * eingabe * 

2140 input x$:if len (x$)<>2 then 2190 
2150 1I$=left$(x$, 2) sd$=eright$ (x$, 1) 

2160 if 1$<'"a" or 1$>"e" or d$s<"1" or d# 
»"5" then 2190 

2170 x=asc (1%) -5%val (d$) -40 

2180 return 

190 print "falsche eingabe, ":print"vers 
uchen sie es nochmal"s:gotLo2140 

2200 rem * zug des computers * 

2210 if cc<i5 then pt=ccıcc=cc+lsgoto 227 
6) 

2220 print spc (10) "ich nehme "chr$ (65+pt 
-int (pt /S) *5) ;5-int (pt /5) 

2230 b (pt)=0O 

2240 for ci=0 to 4 

2250 if cc(ci,Ö)=pt then pt=cisci=4 
2260 next ci 

2270 print spc (10) "ich setze ihn auf "ch 
r$ (65+pp-int (pp/5) #5) ı 5S-int (pp/5) 

2280 b (pp)=10:cc (pt,O)=pp 

2290 gosub 1000 

2500 return 

5000 rem * hauptprogramm * 

3010 print spc (12) "bitte warten" 

3020 gosub 300 

3030 gosub 560 

3060 cc=0:pc=0O 
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5070 pp=12:goto 3300 

5080 for i=O to 4:cc (i,1)=0:next 
3090 gosub 1100 

3100 if p=5 then end 

S110 if wm=1 then 3130 

5120 gosub 1400 

3130 mp=0:n1=0: pp=-i 

5140 bf=O:ef=-24 

3150 if omi>-1l then bf=om:ef=om 
31&0 for cp=bf to ef 

s170 if b(cp)<>O then 3290 

35200 b (cp) =10 

s210 if cc<5 then gosub 1800:goto 3280 
3220 for ci=O0 to 4 

3230 if cc(ci,1) then 3270 

5240 ct=cc (ci,O)sb(ct)=0 

S3250 gosub 1800 

3260 b (ct)=10 

3270 next ci 

3280 b (cp)=0O 

3290 next cp 

3300 gosub 2200 

3310 if wm=i then end 

3320 gosub 2000 

3330 print spc (12) "bitte warten" 
3240 goto 3080 


K.Z.G. 


Das Wesen des Gedächtnisses ist sicherlich eines der interessantesten Probleme 
der Psychologie. Sich an etwas erinnern wurde einmal definiert als “in jetzigen 
Reaktionen Zeichen früher erlernter Reaktionen zeigen’. Aber warum erinnern 
wir uns an manche Dinge und vergessen andere? 

Beispielsweise erkennen wir jemanden wieder, den wir seit Jahren nicht 
mehr gesehen haben, oder uns fällt eine Melodie ein, von der wir nur ein paar 
Noten gehört haben. Andrerseits finden wir es äußerst schwierig, zum Beispiel 
eine Telefonnummer zu behalten. Es gibt eigentlich zwei verschiedene Ge- 
dächtnistypen: Das Kurzzeitgedächtnis (KZG), und das Langzeitgedächtnis 
(LZG). 

Wenn Sie mehr über dieses faszinierende Thema wissen wollen, empfeh- 
len wir Ihnen das Buch “Introduction to Psychology’ von Hilgard und Atkin- 
son. 

Dieses Spiel testet Ihr Kurzzeitgedächtnis. Spielen Sie es mit Freunden 
und Familie, schauen Sie, wer sich am meisten merken kann. Sie werden 
folgendes Menü” auf dem Schirm sehen: 


MOECHTEN SIE SPIELEN MIT 

1. BUCHSTABEN? 

2. ZAHLEN? 

3. NURP ODER 1? 

4. ODER MOECHTEN SIE AUFHOEREN? 


Jetzt wählen Sie, indem Sie 1, 2, 3 oder 4 eingeben. Nehmen wir einmal an, Sie 
hätten 1 eingegeben, um mit Buchstaben zu spielen. Ein Buchstabe wird jetzt 
auf dem Schirm erscheinen, aber nur für ganz kurze Zeit. Sie sollen diesen 
Buchstaben eingeben. Der Computer wird Ihnen dann zwei Buchstaben zei- 
gen, die Sie eingeben sollen, dann drei, und so weiter. Offensichtlich wird es mit 
Zn nonge! Anzahl der Buchstaben immer schwieriger, sich diese alle zu 
merken. 

Welches ist der längste Ausdruck, den Sie behalten können? Können Sie 
unseren Rekord von acht brechen? 


1O rem #* c-64 k.z.g9. * 

20 print "SEmoechten sie spielen mit" 

=0 print "Ellsbuchstaben”?" 

40 print "ERızahlen”" 

sS0 print "Efsnur OÖ und 17" 

&0 print "Esoder moechten sie aufhoeren 


70 get a$ 

80 on val(a$) goto 100,110, 120,620 
90 goto 70 

100 a=26:b=65:g0t0o 200 


47 


110 a=10:b=48:goto 200 
120 a= 2:b=48 

200 rem * string bilden * 
205 input'"Elffertig???";k$ 
209 if k$=" '" then 209 
210 c=1:tt=300 

220 t=ti:tast 

A350 age" 

240 for d=1toc 

250 b$=chr$ (b+trnd (O)*#a) 
260 print b$; 

270 a$=as+tb$ 

280 for e=1 to tt:ınext 
290 print "NM"; 

>00 next 

510 print 

400 rem * antwort * 

410 input "antwort"san$ 
420 if an$t=a$ then 400 
4530 print "Elfalsch!" 

440 print "zahl der versuche"sc 
450 print "es warı:"sa$ 
450 print "zeit:";str$ (int ((ta-t) /.6)/10 
0);" sekunden" 

500 print "nochmal (j/nm)?" 
S10 get 3$ 

320 if a$="j" then 200 
530 if asi>"n" then 510 
340 goto 10 

s00 c=ec+lıta=sti 

s&10 goto 2350 

620 end 





Eins zu Funf 


Dieses kleine Spielchen, das wir das erstemal auf einem Casio Rechner sahen, 
verlangt zur Lösung einiges an logischem Überlegen. Es wird auf einem Brett 
mit neun Feldern gespielt, das so aufgeteilt ist: 


1 2 3 
4 5 6 
7 8 9 


Ein Linienkreuz durch irgendein Feld wird insgesamt fünf Felder kreuzen. 
Die zum Beispiel durch Feld 4 gezogenen Linien würden auch die Felder 1, 5, 
6 und 7 berühren. 





Die Felder auf dem Brett sind mit Zufallszahlen zwischen ® und 5 belegt. 
Wenn Sie eines dieser Felder eingeben (und die auf dem Schirm gezeigte 
Numerierung benutzen), wird die Zahl auf dem betreffenden Feld und alle 
Zahlen auf der horizontalen und vertikalen Linie durch das betreffende Feld um 
1 erhöht (außer 5; 5 wird zu ®). Zum Beispiel, wenn wir hätten: 


2 2 4 
1 5 2 
1 5 4 
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und Sie gäben 4 ein, würde das Brett wechseln zu: 


3 2 4 
2 0) 3 
2 5 4 


Das Puzzle ist gelöst, wenn das Brett so aussieht: 
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0 


0) 


0) 


10 
15 
4) 
30 


40 


rem * c-64 eins zu fuenf * 
==" 1 Di 

m=O 

dim a% (2,2) 

goto 1000: rem hauptprogramm 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 
260 
S00 
>10 


rem * 
print 
print 
print 
print 
print 
print 
print 
print 


return 


bildschirm * 
u 


rem * brett zeichnen * 
for a=1 to 1i 
i=-9%*rnd(O)+1 


gosub 
gosub 
next 


return 


=O0srem ziehen 
S00:rem brett drucken 


rem * zug ausfuehren * 
y=int ((i-1)/3 


20 zeile1lmity 


Sa0 for z=O to 8 
ZH a, r)eaik mund rl 

SO aA lz,y)=zaklz,y) ri 

SAD next 

370 aA, y)JzaAltıy)m1 

380 wf=l 

>90 for p=o to = 

400 for q=0 to 2 

410 if aAt(p,g)=ö4 then a%tp.g)=O 

420 wfenf and (ak(p.gq)=0) 

430 next: next 

440 return 

SO0 rem * brett ausdrucken * 

S10 print "33" d$ 

Sa0 for q=d0 to 2 

SEO print ds "Ni" 

540 for p=b to 2 

SS0 print "WH"arights (str$ (af (p,q)). 195 
Sol) next p 

70 print 

S80 next q 

390 return 

sö0 rem * eingabe * 

sl0 get a$ıif as="" then 610 

sad for a=l to 9 

30 if a$=mid$ ("qweasdzxc",a,1) then i=a 
_a=9 

a4) next 

s50 mem+l 

söl return 

1000 rem * hauptprogramm * 

1010 gosub 100: rem bildschirm 

1020 gosub 200: rem brett ausgeben 
1030 gosub s00: rem eingabe 

1040 goasub 300: rem zug ausfuehren 
1050 gosub 500: rem brett ausdrucken 
1060 if wf=0 then 1030 

1070 print "E" 

1080 print "sie haben es geschafft in"sm 
‚' zuegen" 
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Escher 


Weil das Werk des holländischen Grafikkünstlers M. C. Escher (1992-1972) 
sich auf Symmetrie und mathematische Formen stützt, spricht es besonders den 
Computerprogrammierer an. 

Jetzt können Sie mit Hilfe des Computers Ihre eigenen Muster erzeugen, 
ngsoau mit denselben Regeln, wie jene, die von Escher selbst verwendet 
wurden. 

Betrachten Sie das folgende Muster: 





Es basiert auf einem Mosaik im Alhambra Palast in Spanien. Wenn Sie genau 
hinschauen, können Sie sehen, daß alle Elemente die gleiche Form haben, und 
daß sie so angeordnet sind, daß das Negativ’ der weißen Elemente das gleiche 
Muster um 90 Grad gedreht zeigt. 
Escher studierte solche Muster und erfand ein Spiel, das darauf aufbaut. 
Er entwarf ein gemustertes Element wie dieses 


wis 
Bi 


das er durch 4 Positionen rotierte 


BERSESES 


und so anordnete, daß sie ein fortlaufendes Muster formten. 


AN hl Bach hie 


un 


Dieses Programm tut etwas sehr ähnliches. Nachdem Sie ein Grundelement 
eingegeben haben, rotiert und verschiebt der Computer es, um den Schirm mit 
Ihrem eigenen "Escher" zu füllen. 

Am Anfang des Spieles fragt der Computer Sie nach der Größe Ihres 
Grundelementes. Wenn Sie beispielsweise 4 eingeben, wird Ihr Grundelement 
4 mal 4 Kästchen enthalten. Nun füllen Sie Ihr Quadrat, Reihe für Reihe, mit den 
in den Zeilen 3009 bis 3200 des Programmausdrucks gezeigten Grafiksymbo- 
len. Wenn das Quadrat gefüllt ist, fragt der Computer nach der Richtung, in 
welcher Sie die Quadrate abgebildet haben möchten. Sie geben N, S, O oder W 
ein für Norden, Süden, Osten und Westen. Der Computer wird Sie nach allen 
benötigten Richtungen fragen. 

Mit diesem Programm sind Sie imstande, eine fast unendliche Anzahl 
eindrucksvoller Muster zu erzeugen. Geben Sie das Programm ein, und sehen 
Sie, was dabei herauskommt. 


10 rem * c-64 escher spiel * 

20 mk=20 

30 print "=" 

40 dim sy (mk, 5) 

0 for cc=O to mk 

&0 for ril=0 to 3 

70 read sy (cc,r1) 

BO next 

90 next 

100 input"groesse des grundelementes";s 
110 sx=int (39/s) +1 

115 sy=int (23/8) +1 

120 dim ds (sx,sy) ,bs (s,s),ri (s,s),sc (s%#s 
Y,5%5Y) 

130 print "="; 
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140 for r=0O to s-I 


150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
0) u 
50 
260 
270 
280 
290 
>00 
„5%x) 


print 
a3$= u 


reihe"sr+ilstab (7; 


input a$ 

at=left$(a$+" ".s) 
for k=0 to s-1 

bs (r,k)=asc (mid$ (a$,k+ti1,1)) 


next k 
next r 
print 
print 


print 
print 


richtung der elemente (n,s,w, 


jede reihe'"sx'" richtungen" 


for b=0 to sy-1l 


print 


reihe"sb+1;tab (7); 


input a$ 
a$t=left$(as+" 


310 for a=0 to sx-1 
520 in$=mid$(a$,a+1,1) 
3530 ds (a,b) =- ( (in$="n")+2%* (in$="o")+3%* (i 
n$='"s'")+4% (in$="w"))-1 

if ds(a,b)<O then ds (a,b)=0O 


340 
550 
360 
370 
380 
390 
400 
410 
420 
4530 


440 
450 
4a0 
470 
480 
490 
1000 
1010 
1020 
1050 
1040 
1050 
90 
1060 
1070 
1080 
1090 


next a 
next b 
print 
print 


{bild berechnen?!" 


for r=0 to s-1l 
for k=0 to s-Ii 
for ri=3 to O step -1 
for cc=mk to OÖ step -1 
if bs(k,r)=sy (cc,ri) then c2=ccır2er 
lscc=0:r1=0 


next 
next 


bs (k,r)=c2 
rick,r)=er2 


next 
next 


print "{graphik gefunden?" 
for r=0 to s-I 

for k=0 to s-Iil 

for b=0 to sy-1 

for a=0 to sx-1l 


on ds(a,b)+1 goto 10580, 1070, 1080, 10 


x x 


—_ rn 
s-k 
rıy 


R 
r 


kıyzr:goto 1100 


lsy=kıgoto 1100 
ls y=s-r-l:goto 1100 
s-k-1 


1100 ri=(ds (a,b)+tri(r,k))and 3 
1110 sc (xtats, y+tb*s)=sy (bs (r,k),r]) 
1120 next 

1130 next 

1140 next 

1150 next 

2000 rem * escher zeichnen * 
2010 print "3"; 

2020 for y=0 to 253 

2030 for x=0 to 39 

2040 if sc(x,y) >255 then print "S"r:goto 
2060 

2050 print "3"; 

2060 print chr$ (sc (x,y)and 255); 
2070 next 

2080 next 

2090 print "}"3 

2100 goto 2100 

3000 data 32, 32, 32, 3Z2:rem" " 

S>010 data 165,163, 167, 164:rem"I " 
3020 data 212,197,217,210:rem"T" 

35030 data 199,196, 200, 198:rem'G" 

»040 data 194,195, 221, 192:rem"B" 

3050 data 180, 183,170, 175ırem"! " 

5060 data 181,184, 182, 185:rem'L " 

5070 data 161,418,417, 162:rem'’R" 

080 data 205,206, 205, 206:rem'"M" 

3090 data 203, 202,213, 201:rem"K" 

3100 data 189,173,176, 174:rem"-" 

s110 data 207,208, 186, 204:rem"D" 

s120 data 177,171,178, 179:ırem" +" 

3130 data 169, 223, 425,479:ırem" " 

140 data 190,188,172,187:rem"" " 

»150 data 209,209, 209, 209:rem'"'Qa" 

3180 data 214,214,214,214:rem"V" 

3170 data 215,215, 215, 215:rem'"W" 

5180 data 219,219,219,219:rem"L" 

53190 data 166, 422, 166, 422: rem"i#" 

„200 data 191,447,191,447:rem"“%'" 


Genie am Werk 


Spielen Sie dieses kleine Spielchen, um herauszufinden, wie gut Sie mathema- 
tisch denken können. Oder lassen Sie gleich die ganze Familie mitspielen und 
finden Sie heraus, wer das Genie ist! 

Der Computer gibt sieben Zahlen und eine größere "Zielzahl” an. Sie 
wählen zwei dieser Zahlen und eine von den vier Grundrechenarten: 


Addition + 
Subtraktion = 
Multiplikation * 
Division / 


Der Computer wird dann diese Rechnung ausführen. Beispielsweise, wenn Sie 
7 + 18 eingegeben haben, berechnet der Computer 7 + 18 = 25 und fragt dann: 


LASSEN SIE ES SO? 


Antworten Sie mit N, dann werden die Zahlen 7 und 18 in der ursprünglichen 
Liste ersetzt durch 25. 

Sie können dann eine weitere Rechnung angeben. Ihr Ziel ist, mit einer 
Zahl aufzuhören, die sehr nahe an die Zielzahl herankommt. 

Geben Sie J ein, wenn Sie so nahe wie nur möglich herangekommen 
sind. Eine zusätzliche Erschwernis ist es, daß Sie all dies innerhalb einer be- 
stimmten Zeit tun sollen. 


1IO rem * c-64 genie am werk #* 

20 t=0:x=0:r=0 

>60 dim d(7) 

40 goto 160 

50 input "rechnung'"zf$ 

60 for nel to len (f$) 

70 e=asc (mid$ (f$,n)) 

80 if e=42 or e=45 or e=45 or e=47 then 
110 

90 next 

100 goto 50 

110 a=val (mid$ (f$, 1,n-1)) 

120 b=val (mid$ (f$,n+1)) 

130 t$=mid$ (f$,n,!) 

140 if val(f$)<>int (val (f$)) then 50 
150 goto 310 

1&0 print "="; 

170 for i=1 to 7 

180 c=int (10%*rnd (OÖ) +1) 

190 if int (4*rnd (O))=3 then c=int (4rtrnd( 
O)+1)*25 
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200 
210 


ee 


dli)=c 
next 
f=int ((9#rnd (Ö)+iI) #100) 


250 print "sElersuchen sie diese zahl zu 
erreichen: Ri 

240 print 

=50 print "sie haben diese zahl erhalten 

260 for i=1 to 7 

270 print str$(d(i)); 

280 next 

290 print:print 

>00 goto 50 

s10 for i=-1to 7 

s20 if d(i)=a then 350 

=50 next i 

>40 goto 460 

=s0 d(i)=O 
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360 for i=l to 7 

„70 if dti)=b then 400 

3580 next i 

>90 goto 460 

400 gasub HOQ 

405 print f$,'"="sdti) 

+10 print "lassen sie es so"; 

420 z$=""sinput =z$ 

a0 if z$="" then 250 

440 if leftt(z$,1)="j" then 490 

459 goto AO 

450 primt "diese zahlen haben sie nicht 
erhalten, sie bekommen keine punkte" 
470 x=0 

480 got.o S10 

490 print "sie habens:"sdli)s" auf"sf 
S00 x=5-abs (f-d(i)) 

s1l0 if x=0 then x=0 

S20 if x=5 then print "gut gemacht." 
33) tetrx 

S40 r=r+l 

Ss0 print "sie bekommen jetzt";»3;5" punkt 
Zu 

Ss0 print !sie haben jetzt";t;" punkte, 
in"srs" runden" 

70 input "mochmal'sz 

580 if left#$(z$,1)="j" then 160 

90 end 

soo if t$="+-" then d(li)=arbrıreturn 
BD if t$="-" then dli)=a-bsreturn 
ben if tE="#" then d(li)=axb 

30 if t$="/" then d(id=a/b 

840 return 


Haifischjagd 


Seit fünf Tagen treiben Sie nun schon in Ihrem Boot umher und durchsuchen 
die Weltmeere. Plötzlich sehen Sie ein leichtes Plätschern auf der spiegelglatten 
Meeresoberfläche — da ist er, Ihr Todfeind, der Schrecken des Meeres — der 
Haifisch. 

Zu Beginn des Spieles erfahren Sie, wie Sie Ihr Boot bewegen können. Ihr 
Echolot wird Ihnen jeweils sagen, wie dicht Sie am Hai sind — je näher Sie 
rankommen, desto höher wird der Ton sein, den Sie hören. Wenn Sie sich zu 
weit vom Tier entfernt haben, wird angezeigt: 


SCHADE, SIE GINGEN ZU WEIT WEG 


Wenn Sie glauben, nahe genug zu sein, können Sie einen Schuß auf den 
Haifisch abgeben: Drücken Sie auf die Leertaste. Falls Sie getroffen haben, 
erscheint die Meldung: 


DAS WAR'S! GUT GEMACHT 


Unglücklicherweise haben Sie nur 2®® Energieeinheiten zu Ihrer Verfügung. 
Sowohl das Bewegen des Bootes als auch die Abgabe eines Schusses kosten 
Energie. Wenn Sie alle Energie verbraucht haben, zeigt der Computer an: 


SIE HABEN KEINE ENERGIE MEHR 


Zum Schluß erhalten Sie Informationen über Ihre Fähigkeiten als Haifischjäger. 


10 rem * c-64 haijagd * 

20 dim x$(D,y$b(2),tu (3,8),cC0$ (2) 
50 d$='" EEEEREREEREEEEE!" 

35 sid=34272 

40 for i=ÖO to Z3:pokesid+i,O:rnext:pokesi 
d+24, 15: pokesid+95, 15: pokesid+6, 253 
50 bs="3 4" 

&0 ng=d:tr=O:mr=Ö 

70 for re=0 to 2 

80 read x$(re),y%$ (re) 

90 next 

100 data 1,f,"","",r,bB 

110 rem tune 

120 for tu=1 to3 

130 for no=1 to 8 

140 read tu (tu,no) 

150 next no,tu 

160 data 40,60,40,60,40,50,60,60 
170 data 30, 35, 40,45,50,595, 60,60 
180 data 35,32,30,27, 25,22, 20,20 
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60 


190 
eg" 
200 
ht" 
= 10 
230 
>00 
>10 
Erle 
3.30 
5340 
S360 


1000 
1010 
1020 
1050 
1040 
1050 
1060 
1070 
1080 
1100 
1110 
1120 
1130 
1140 
1150 
1300 
1310 
1320 

540) 
1350 
1360 
1370 
1380 


co$(O)="schade, sie gingen zu weit w 
cos (1)="das war's! gut gemac 
c0$ (2)="sie haben keine energie mehr 


goto 3000 

rem * ton * 

poke sid+4,17:pokesid+l,tn 
for t=1 to tm 

for dli=1 to 10:next di 
next t 

return 





rem * initialisieren * 
ng=eng+1 
sy=int (70*rnd(0O))-35 


sy=int (70%*rnd (0)) -35 
di=abs (sx) tabs (sy) 
md=di:sd=di 

en=200: sh=0:hi=0:ns=Oo 
vx=0:vy=0 

return 

rem * eingabe der geschwindigkeit * 
get k$ 

vr=48 (0 (ke) (ks="m")) 
vy=4r ((k$e"mM")—- (ks="E")) 
sh=(k$=" ") 

return 


rem * entfernung etc. berechnen * 
SKESHVH 

SYyASY-VY 

en=en+ (vx& >O)+ (vy2>O0)-1 

if eni=0 then en=O:goto 1460 

rem hai bewegt sich weg 

Sk=sx+tsgn (s%) 

sy=sy+sgn (sy) 

di=abs (sx) tabs (sy) 


1390 if di@md then md=di 

1400 if di>100 then 1460 

1410 if not sh then 1460 

1420 nsens+i 

1430 en=int (en-.S*di) 

1440 if eni=O then en=O:goto 1460 

1450 hi=int (di#rnd (O))«=1 

1450 return 

1500 rem * ausgabe * 

1510 gosub 2000: rem blank 

1520 print left$(d$,8) ;tab (sgqrn (va) +1Ny;x 
& (son (vx)+1)5 

1530 print left$ (d$,8+sgn (vy))z;tab (19); y 
$ (son (vy)+lDy; 

1540 if sh then tm=2:tn=10:gosub F>00:got 
o 1560 





1550 tm=1:tn=140-disgosub 300 

1560 print "=El'stab (14) sens" "5 

1570 return 

1500 rem * bildschirm * 

1620 print "=El"sspc (7) "energier"en"ergs" 
1540 print left$(d$,159);"bewegen: curso 
r steuertasten verwenden" 

16850 print "Elschiessen: space-taste drue 
cken" 

1640) gosub 2000:rem blank 

1670 print left$(d$,8);"richtungs" 

16880 print "SER", "<return> druecken um a 
nzufangen';s 

1685 input an$ 

1710 return 

1800 rem * ende des spiels + 

1810 print "EEl"sspc (5) ıco$ (ca-]) 
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1820 for no=1 to 8 

1830 tn=tu (ca,no) stm=10:gosub 300 

1840 next 

1845 poke sid+4,0 

1850 print "Sflsie fingen an bei:"ssd;tab 
(20) 35 '"'m" 

18640 print "zahl der schuesse: "ıns 

1870 print "sie naeherten sich bis auf:" 
smdstab (20) 35; "m" 

1880 if hi then print "sie trafen in:"ıd 
istab (20) 5 "m" 

1890 if hi then re=S0ö+ten/4+sd/l0:goto 19 
oo 

1895 re=50-di/2 

1900 resint (re) 

19710 if re>100 then re=100 

1915 if reiOö then re=0O 

1920 tr=tr+re 

1930 if re:mr then nr=re 

1940 print "Eergebnis (0-100)" 

1945 print "CS —— 

1950 print "zahl der spiele:"sng 


1955 print "dieses spiel: "sre 
1960 print "durchschnitt: "sint (tr /ng) 
1970 print "maximum: "mr 


1980 return 

2000 rem * leerstellen * 

2010 print left$s(d$, 7) stab (18); " " 
2020 print tab (189); " „ 

2030 print tab(18);" 2 

2040 return 

3000 rem * hauptprogramm 

S010 gosub 1000:rem initialisieren 
SO20 gosub 1600: rem bildschirm 

50530 gosub 1100:rem eingabe 

5040 gosub 1300:rem berechnen 

3050 gosub 1500:rem ausgabe 

2060 ca=-># (en=0) -2*hi- (di>100) 

5070 if ca=0 then 3030 

>080 gosub 1800:rem ende 

5090 print 

3095 for i=1 to 1l10:get k$iınext 

100 input "Eein weiteres spiel";an$ 
>110 if left$(an$,1)="j" then 3010 
120 end 


Shakespeare Shuffle 


Shakespeare, einer der größten Schriftsteller der Welt, und Schach, König der 
Spiele, sind in diesem ungewöhnlichen Puzzle vereint. 


Auf einem Schachbrett sind Buchstaben angeordnet, und zwar folgen- 
dermaßen: 





Eine Schachfigur, der Springer, zieht dann über das Brett, genau wie in einer 

normalen Schachpartie. Beim Springen von einem Feld zu einem anderen 

werden die Buchstaben oder Zeichen auf diesen beiden Feldern vertauscht. 
Auf diese Weise wird der Text auf dem Brett durcheinandergemischt. 
Der Computer wird Sie fragen 


NIVEAU? 


Und Sie geben die Zahl der Züge ein, die der Springer machen soll. Ganz klar, 
je höher diese Zahl, desto mehr wird das Brett durcheinandergeschüttelt. 

Das Brett wird gezeigt, nachdem der Springer seine Züge gemacht hat. 
Ihre Aufgabe ist, den Text wiederherzustellen, indem Sie den Springer auf dem 
Brett bewegen. 


Geben Sie eine Zahl zwischen 1 und 8 ein, um den Springer zu ziehen, so 
wie es hier gezeigt ist. 
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10 rem * c-64 shakespeare shuffle * 
15 poke646, 15 

20 d$="EKEEFEERREI" 

>50 dim hx (B),hy (8) ,b$(8,8),t$ (8) 

40 for k=1 to 8 


so r 
KÖN 


ead 
ext 


70 data 


80 data 


90 d 
100 
110 
120 
130 
140 
150 
150 
170 


ata 
for 
for 


b& (» 


t$(k) 


"sein ode",„"r nicht ",„"sein, da" 
"s ist di","e frage." 

"william "„"shakespe","are 1405" 
x=1 to 8 

y=-1 to 8 


{,y)=zmid$(tt(y),„x,1) 


next:ınext 


for 


k=1 to 8 


read hx (k),hy (ck) 
next k 
data -1,-2; 1, 78,2, 715,2, 1,152, 71,2,72 





























190 
190 
200 


els='"tL"sc2$=-" Br" 
»o=lıyo=lıxyn=l:ynel 
goato 1000 


S00 rem * buchstabe drucken * 
510 print left$tds$, y+l)sıtab (Z2*x) spa (9 
bE(H,y)35 

S20 return 

400 rem * shuffle * 

410 input"=Rllevel";1v 

420 for du=i to 1v 

430 nm=int (rnd(O)*8+1) sgosub 500 
440 if xo=xn and yo=yn then 430 
4530 xo=xns yo=yn 

4&0 next 

470 return 

SO0 rem * zug des springers # 


310 
wre) 


xs=hx (nm) »s ys=hy (nm) 
if zotrxstl or notxs:8 or yotysil or 


yotys>8 then return 


3.50 
540 
330 
= T- 18 
70 
80 
390 
[=19]8) 
810 
700 
710 
720 
519) 
740 
759 
760 
779 
780 
790 
B00 
810 
920 
700 
710 
720 


KN=XOtXSiyn=yOotySs 

w$=b$ (xn,.yn) 

b$ (xn,yn)=b$ (x0,yo) 

bE (x0,yo)=w$ 

if not di then return 
yexoı y=yorgosub 00 
geunıy=yn:gosub 300 
KO=XN:yO=yn 

return 

rem * bildschirm * 
print'"3=" 

for x=1 to 8 

for y=1 to8 

gosub 300 

next 

next 

print d$stab (16); "1 28" 
print tab (14),'8 aa] 
print tab (17); "he" 

print tab (14),"7 as" 
print tab(16);"& 5" 
return 

rem * zug eingeben #* 

for de=1 to 200:next de 
print left$(d$,yo+ri)stab (Z#xo)sspc (9 


) c1$ 


930 
940 


for de=i to Z200:next de 
print left$(d$,yo+rl)stab (Z*xo)sspc (9 


) c2$ 


950 
52-18) 
770 


get i$ 
if i$-"" then return 
goto 10 
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1000 
1010 
1020 
1030 
1040 
1050 
Ö 

1060 
1070 


rem * hauptprogramm * 


gosub 400:rem 
di=-i 

gosub 700:rem 
gosub 900: rem 
nm=valti$):if 


gosub So0:rem 
goto 1040 


shuffle 

bildschirm 

zug eingeben 

nm=0 or nm=9 then 104 


zug des springers 


Explosion 


Die meisten Computerversionen von EXPLOSION erstellen ein Brett für zwei 
oder mehr Mitspieler. Mit diesem Programm spielen Sie gegen den Computer 
selbst. Sind Sie dieser Herausforderung gewachsen? 
: Explosion wird auf einem Brett von 3 mal 3 oder 4 mal 4 Feldern gespielt. 
Der Computer wird Sie bitten, die Größe des gewünschten Brettes einzugeben. 
Jedes Feld auf dem Brett hat eine Kapazität, die genauso groß ist, wie die 
Zahl seiner Nachbarfelder. Dies bedeutet, daß Eckfelder eine Kapazität von 2 
haben 


Randfelder haben eine Kapazität von 3 


und zentrale Felder haben eine Kapazität von 4 





Sie und der Computer haben Spielsteine von unterschiedlicher Farbe, die Sie, 
wenn Sie an der Reihe sind, auf das Brett legen. Sie dürfen dann einen Stein auf 
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irgendein leeres Feld setzen, oder auf irgendein Feld, auf dem bereits einer oder 
mehrere Ihrer Steine liegen. Ein Feld wird explodieren‘, wenn die Zahl der 
Steine, die es enthält, die Kapazität erreicht. Ein explodierendes Feld entleert 
sich, seine Steine verteilen sich auf die Nachbarfelder; ein Stein pro Feld. Diese 
Steine werden jegliche gegnerische Steine auf diesen Feldern umwandeln. Im 
Spielverlauf werden die Explosionen immer größer. Am Ende wird das ganze 
Brett in einer Farbe explodieren. Wenn es Ihre Farbe ist, haben Sie gewonnen! 





10 rem * c-64 explosion * 

15 poke53280, 0: poke53291,0 

20 dim rb (5,5) ,sb (5,5) „st (5,5) 

>50 d$=" SESEFEEEBEEEEEEEEEEEEEEEEE!" 

40 goto 3000 

200 rem * sb nach rb uebernehmen * 

210 for x=1 to si 

220 for y=1 to si 

250 sb (x, y)=rb (x,y) 

240 nextınext 

250 return 

500 rem * rb nach sb uebernehmen * 

S10 for x=1 to si 

s20 for y=1 to si 

>30 rb(x,y)=sb (x,y) 

S40) nextinext 

sS0 return 

400 rem * initialisieren * 

410 print "geben sie die groesse des br 
ettes an" 

420 input"(3 oder 4)"ssi 

430 if sit3 or si>4 then 410 

44) for x=1 to si 

450 for y=1 to si 

460 st (x, y)J)s4r yuel)tigesi)+tiysl)t+tiyssi) 
470 nextınext 

490 print "moechten sie anfangen (j/n)"; 
500 input an$ 

510 cm=(left$(an$, 1)<i>"j") 

&00 rem * bildaufbau #* 
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s10 print "=" 

620 print " M x" 

630 print " M "5; 

640 for x=1 to si:print x3" "senext:prin 
t 

650 for y=1 to si 

&&0 if y=1i then print " y "ssgoto 680 


670 print " ". 

680 for x=1 to si:sprint "I[———"sinext:pri 
nt. "4 [ 

90 for i=l1 to 3 

700 print " "3 

710 if i=2 then print str$(y)sıgoto 730 
720 print " "3; 

730 for x=1 to si:print "] "senext:pri 
nt. TH 

740 next i,y 

760 print " "; 

7789 for x=1 to si:print "4——"senextipri 
nt. LI De u 1 | 


7980 return 

800 rem * zug des spielers #* 

810 print d$3 

gE0 input "ihr zug (x,y) BEER ; 
MX, My 

830 if mtl or ms>si or my<1l or my>si th 
en 810 

840 if rb(mx,my)<O then 810 

850 gosub 200 

BA0 xemxı yamyıdiz-i 

870 gosub 1000: rem explosion 

880 if et then 2200:rem end 

890 gosub SF00 

900 return 

1000 rem * ausgabe explosion * 

1010 sb (x, y)=sb (x,y)+pl 

1020 ne=O 

1050 if di then x1l=x:ıyl=eyıgosub 1400 
1040 xp=0 

1050 for y=1 to si 

1050 for »=1 to si 

1070 if abs (sb (x,y))“st (x,y) then 1160 
1080 xp=-1 

1090 ne=ne+l 

1100 sb x,y)=sb (x,y)-st (x,y)*pl 

1110 if di then x1=x:yl=ey:ıfor i=l1 to 999 
ınext i:gosub 1400 

1120 x1=x:ıyl=ey-l:gosub 1300 

1130 »1=x+tlıyl=eyıgosub 1300 

1140 x 1l=exıyl=y+lıgosub 1300 

1150 x 1lex-1lıyleyiıgosub 1300 
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11&0 
1170 
11890 
1190 
1300) 
1310 
1320 
O0 
13.30 
1400 
1410 
1420 
1430 
1440 
1450 
1455 
1460 
mm 
1470 
1480 
1300 
16810 
1820 
1430 
1540 
1650 
1660 
1870 
1580 
1690 
1700 
1710 


next x,y 

et=(ne:1.5%si*si) 

if xp and not et then 1040 

return 

rem * verteilung auf die nachbarn * 
sb (x1,yil)=pl* (abs (sb (x1,y1)) +1) 

if di and st x1,y1)>O then gosub 14 


return 

rem * feldausdruck * 

for i=1 to S00:next i 

print left$(d$,4%*yi+i);tab (4x1); 

print " EHI SCHI MICH; 

if sb (x1,y1)=0 then 1480 

if pl=-i then print "="; 

if pl=1 then print"=W"; 

print " Ems abs (sb («1,y1))ı "mE 
.. 

print "w'; 

return 

rem * zug des computers * 

print d$; "Wmein zug 

be=1000 

for tx=1 to si 

for ty=1 to si 

if rb(tx,ty)>O then 1720 

gosub 200 

yetyıyetyıdi=o 

gosub 1000:rem ausgabe explosion 

if et then mx=tx:my=ty:goto 1800 

gosub 2000:rem bewertung 

if enibe or (en=be and rnd(O)2.4) t 


hen be=senimx=tx:my=ty 


1720 
1800 
1810 
1820 
1850 
1840 
1850 
1860 
1870 
2O0OO 
2010 
2020 
2050 
2040 
20509 
2060 
2070 
+10 


next:inext 

rem * tatsaechlicher zug #* 

gosub 200 

yemksymnyıdi=-i 

print d$s:ıtab (8) ;x;","3y 

gosub 1000:rem ausgabe explosion 
if et then 2200:rem ende 

gosub 300 

return 

rem * bewerten * 

en=O 

for x=i to si 

for y=1 to si 

en=zentsb (x,y) 

if -sb (x,y)“st(x,y)-1 then 2110 
en=en-2 

if sb(x+i,y)=st (x+ti1,y)-1i then en=en 


2080 if sb (x, y+l)=st (x, ytrl)-1 then en=en 
+10 

A090 if sb (x -1l.,y)=st (x-1l.y)-1l then en=en 
+10 

2100 if sb (x, y-lD)=st (x, y-1l)-1 then en=en 
+10 

„110 nextinext 

120 return 

SEO0D rem * ende # 

2210 print ds; "WMeine immerwaehrende exp 
losion ” 

2220 if pl=1 then print "sie gewannen'"s: 
goto 2240 

2230 print "ich gewann"; 

2240 print " in"sntz'M zuegen" 

2250 input "(return druecken)"sanr$ 

ee&0 if left$(ans, 1)="j" then poked4%, 14 
ıclregotolod 

2270 end 

=ÖOO rem * hauptproagramm * 

SO10 gosub 400:rem initialisieren 

2020 if cm then 2040 

S030 pl=l:gosub BöÖrrem zug des spielers 
Ss040 pl=-liıgosub 1600: rem zug des comput. 
ers 

S0S0 nt=nt+i 

S06&0 goato 030 
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New York, New York 


Dieses originelle und aufregende Spiel versetzt Sie in einen Hubschrauber, 
hoch über New York, und Sie schauen auf die Straßen der Stadt hinunter. Noch 
sind Sie allein, aber bald wird Verkehr auftauchen und Sie müssen ihn regeln. 
Sie tun dies, indem Sie die Verkehrsampeln steuern. Wenn ein Auto (dargestellt 
durch ein Quadrat) eine rote Ampel erreicht, wird es anhalten. Jede Ampel hat 
ein Zeichen — drücken Sie die Taste mit dem Zeichen, und die Ampel wird grün 
und das Auto wird seine Reise fortsetzen. Am Anfang des Spieles haben Sie 109 
Punkte. Sie erzielen 1® Punkte, jedesmal wenn ein Auto eine Kreuzung über- 
quert, und 25 Punkte für jedes Auto, das die Stadt durchquert. Aber jedesmal, 
wenn zwei Autos an einer Kreuzung zusammenstoßen, verlieren Sie 199 Punkte 
und die Straße ist zeitweise gesperrt. Wenn Sie keine Punkte mehr haben, ist das 
Spiel zu Ende - wenn nicht, dauert es etwa fünf Minuten. Je mehr Punkte Sie 
bekommen, desto besser sind Sie als Verkehrspolizist! 





10 rem * c-64 new york, new york * 

15 poke 53281,7 

20 ti$="000000" 1tb=tin pu=100 

= Dı 2) ERREEEEEEEEEEEen 
we sg 





20 pr int": BEEEEEINNe ] BERN ERIEEIRRENEENIUREREN SE 
DI BEER 


50 print" Ic rd re 
If ur 
60 print" 


a 
s “u ; 

a int "aan Ike ] Lisssuiss mike 
In:& sg"; u 
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vet 28 SEE Yeleietettutetetatetetetetutetstele ten tetntte 
ehe S 2. ELTERN ] 
LEHE BER EISSSSSSSSEELEELES REF TIRTN 





ee, 
iii U ttietnininteieintetete 
entteieiinneiiete 








in print" 
ehe [+:& BE RERRET 

1530 pr int" 
x jl 
140 pr int" 
EE 11 BE 
150 printas” Ka as; 








it ]yEEREBE zii ]OBEEE 





1580 print BEER] DEEEET] id] Di 


=] ee 
170 print" 16 17 18 
19 \; 
180 pr int "—— [L-— L- [- 
an Ba 
. print" +] 1 “2 
] u I, 





] u, 
400 a scA=10253:1c1=-55295 
00 dimx% (aw) ,y%Alaw),rAlaw), 1% (41),a% (3) 
‚I%(9) 
10 fori=Oto4l:readl% (i) next 
s20 data 47,72,90,98,107,115,166, 174, 183 
„171,209, 217,226, 234, 367,375, 384,392 
550 data 410,418,427,494,503,511,529,537 
‚546,554, 687, 695,704, 712 
555 data 730, 738,747,7583 
340 data 806,814,823,831,849,874 
50 fori=Oto4l:a=peek (1% (i)+sc%) ıpokel”% ( 
i)+tscA,aor128 
»&0 pokel% (i)+cl,Zınext 
370 aAMW)=lıaA (1)=-1ı 2% (a) =40:a% (53)=-40 
&00 a=rnd (-ti)ı:deffnr (x)=int (rnd (1)*x) 
1000 fori=Otoawırd=er% (i) sifr%=0then 1099 
1010 xA=xAti)ıyA=y% (i) 
1020 ifr%andithenxY%exrd+1l: f14=99: 0 0%=226:0 
Yabdı sY=40:ifxZ%>40then 1200 
1030 ifrZand2thenx %Aex ri: fYe226ı004=98: 0 
Y=64ı5%=-40: ifx%i 1then 1200 
1040 ifr%Aand4theny%=y%+1:f%=97:00%=229:10 
4=9315%=-1l:ifyA>23then 1200 
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1050 ifr%and8ötheny%=y%-1:f1=225:00%=97:0 
H=93:5%=l:ify%Xöthen 1200 

1960 ifr%Aandidstheni1Oo 

1070 ifr%and32then 1400 

1080 ifr%andö4theno%=91:r%=r%-64:ır% (i)er 
Aspu=pu+1O 

10909 goto1300 

1099 next.:goto2000 

1100 if (peek (x% (i) +40%*y% (i)+s%+cl)and1i5) 
v>athenr% (i)=(r%or32)andnotiä:ıgoto1300 
1110 pu=pu-1:90t01099 

1200 pu=pu+25:pn=pn+1:ır% (i)=O:p%4=-1l:ıgoto 
1550 

1300 p%=x2%+40%*y74,ı ps7/=peek (p%+scY) si fps%= 
f4orps%=160t henpu=pu-l:goto1099 

1310 a=peek (p%+s%+sc%) :sifar>32thenr% (i)= 
rAori6 

13520 ifps%=o0%4thenf%4=160 

1325 v/4=peek ("% (i) r408y% (i) +scH) sifvirlb 
Ötheno%=00% 

1327 ifv%=102thenr‘% (i)=0: ao=a0o+1l:pu=pu-l 
O0:got 01099 

1350 pokep%+sc%, f%:pokex% (i)+40*yY4 (i)+sc 
Ya0Aıxhti)axhıyAh (i)eyf%rgotoi099 

1400 p%=x%+40%*y%sa=peek (p%+scA) sifa=f%th 
en 1099 

1410 ifa<s>91then 1500 

1420 vb=0: for j=OtoS: a=2-j:b=peek (p%+sct+ 
aA tj))sifnot (b=640orb=975)thenvb=vbora 
14530 next 

1440 b=2»fnr (4) sif (bandvb) =Othenr% (i)=bo 
r&64:goto1330 

1450 ifvb=15then 1099 

1460 goto1440 

1500 ao=ao+1ır% (i)=Or:ifa<>102thenf% (af)= 
pA:af=af+l:ıpu=pu-200 

1510 f%=102:g0t0o1330 

2000 ifr% (t1l)=0then2100 

2010 tl=t1l+1l:iftl>awthent1l=0 

2020 got o3000 

2100 a=fnr (4)ır% (tl)=2»rasonatigotoz110,2 
120, 2150, 2140 

2110 x% (tl) =1:goto2200 

2120 »% (t1) =40: got 02200 

2130 y%Attl)=0:g0t02500 

2140 yAltl)=25:g0t 02300 

2200 iffnr (2)=1itheny% (tl) =3:g90t 03000 
2210 y%(t1)=19:got 03000 

2300 iffnr (2)=ithenx% (t1l)=8:goto5000 
2310 x% (t1l)=353:g0ot 03000 

3000 geta$s: ifas=""then30970 


3010 a=asc (a$) : ifa>64anda{91ithena=a-65:g 
oto3100 

3020 ifa>47anda<S58öthena=a-22:got 03100 
3030 ifa=43thena=36:goto3100 

3040 ifa=92thena=37:g0t03100 

3050 ifa=64thena=38:goto3100 

3060 ifa=42thena=39:goto3100 

»070 ifa=9794thena=40:g0t0o3100 

3080 ifa=öslthena=41:gotoS3100 

3090 goto4000 

3100 p%=1% (a) sa=peek (p%+tcl) if (aand1F9)=2 
thena=3:goto3110 

3105 a=2 

3110 pokep%+tcl,a 

s120 goato3000 

4000 rem * ausgabe * 

4010 print" EEEEFEEETEEEETEEEEEEEGEE!' spc ( 
18)mid$ (ti$,4,1)":"rights (tig, 2) "3" 

4020 ifpuröthenpu=O 

4030 print"S9"spc (18) right$ (" "+str$(p 
u),4) 

4040 i fpu=0then9000 

4100 iffnr (25)orf% (0) =0then4200 

4110 pokef% (OÖ) +sc%, 91: fori=ötoß: f% (i)=f% 
(i+tl)ınextiaf=saf-l 

4200 ifti-tb>18e3thenF000 

5000 gotoi000 

9000 fori=OtoSe3:next:print"FEi noch ein 
mal? (j/n)" 

9010 getas:ifas="j'"thenrun2d 

9020 ifas="n"then?7040 

90350 goto9010 

9040 if pu:>O0 then print"=klsie haben"spus 
" punkte gemacht" 

9050 ifpu<öthenend 


9060 print'"=E sie haben die fuenf 
minuten" 

9070 print" nicht durchgehalte 
n" 
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Schlussel 


Die Suche nach einem Schlüssel, den man verloren hat, kann bestenfalls eine 
ärgerliche Erfahrung sein, aber wenn man ihn so schnell wie möglich finden 
muß und er außerdem im Computer versteckt liegt, dann wird die Sache äußerst 
mühselig, aber auch sehr herausfordernd. 

Der Computer hat intern folgenden Ausdruck aus 2® Einsen und Nullen 
gespeichert. 


IOIOOIOIOIIIOIO0IO0IIO 


Diese Zahlen können zyklisch verschoben werden, das heißt, die Ziffern werden 
vom rechten Ende nach links geschoben. Dies wird dreimal gemacht und die 
Zahlen in jeder Spalte werden addiert, zum Beispiel: 


Reihe —>OOIOIOIIIOIOIOI IOIOI 
Rehe2 — O1 I IOIOIOI IOIOIOOIOI 
Reire3? — OIOOIOIOIIIOIOIOI IOI 


Summe —> 022 1212222303031 1303 


Dies alles bekommen Sie nicht zu sehen. Eigentlich ist dies der Schlüssel, den 
Sie finden müssen. 

Was Ihnen gezeigt wird, sind die drei Zahlenreihen, jede wieder verscho- 
ben. 

Zum Beispiel, wenn die oberste Reihe zwei Positionen, die mittlere Reihe 
vier Positionen und die unterste Reihe acht Positionen verschoben ist, sehen 


Sie 

IIOIOIOO 
OIOIOIIıI 
O100101I0 


23310122 


Ihnen wird nicht die Summe der neuen Spalten gezeigt, sondern die Differenz 
für jede Spalte zwischen dieser Summe und der ersten "versteckten’' Summe. 

In der ersten Spalte, beispielsweise, war die versteckte Summe ® und die 
neue Summe ist 2, deshalb sehen Sie 2; in der zweiten Spalte war die versteckte 
Summe 2 genau wie die neue Summe, daher sehen Sie f. Sie sollen jetzt die drei 
Reihen verschieben, bis sie identisch sind mit dem versteckten Schlüssel, dann 
sind natürlich alle Differenzen ®. Die Reihen sind numeriert (die oberste Reihe 
ist 1, die mittlere 2, und die unterste 3), so daß, wenn Sie eingeben 


—|—-0O0 


REIHE = 2 
SCHRITTE = 1 
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die mittlere Reihe eine Position nach links geschoben wird. Wie “wenige” 
Drehungen brauchen Sie um den Schlüssel zu finden? Es wurde bereits in 1® 
geschafft. 
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rem * c-654 schluessel * 


20 a$="10100101011101010110" 
s0 dim t (3,1% 


40 
100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
300 
310 
320 
330 
340 
350 
360 
370 
380 
400 
410 
420 
430 
440 


goat.o 1000 


rem * initialisieren * 

for k=0 to 19 

t. (O,k)=val(mid$ (a$,k+1,1)) 
t(1,k)=t(0O,k) 

t (2,k)=t(0,&k) 

next k 

gosub 400 

for k=0 to 19 
t(2,kd=t(0,k)+t(l1,k)+tt (2,k) 
next k 

gosub 400 

return 

rem * reihe verschieben * 
for i=1 tos 

h=t(r,O) 


for k=0 to 18 
t (r,k)=t (r,k+1) 
next k 
t(r,iNM=h 

next i 

return 


rem * zufaelliges verschieben * 
for r=0 to 2 

s=int (20%#rnd (0) ) 

goasub 300 

next r 
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450 
SO0 
>10 
Se0 
SEO 
340 
350 
350 
370 
380 
590 
[8 18) 
Alu 
SEO 
50 
40 
650 
[X] 0) 
&70 
&8B0 
OO 
810 
BO 
825 
30 
835 
840 
850 
1000 
1010 
LIEO 
1930 
1040 
LOSO 
1050 
1070 
1080 
LO90 
1100 
rehu 


return 


rem * bildschirm * 


print "az" 

for r=0 to 2 
print " 

for k=0 to 19 
print chr$(t(r, 
next &»K 

print 

next r 

print " 


f=0 

print " 

for k=0 to 19 
d=abs (t (O,k)rt ( 


2.)+48) 5 


Des 
b, 


L,k)+t (2, k)-t CH, k)) 


print chr$ (d+48); 


f=f or d 

next k 

print 

return 

rem * eingabe # 
print 


print spc (9) "reihe = 


input r 


print spc (9) "schritte =: 


input s 

r=r-1 

return 

rem * haupt * 
gosub 100:rem 
nt=d 


initialisieren 


goasub SO00:rem bildschirm 
if f=0 then 1090 

goasub 8BOO:rem eingabe 
gosub >00:rem verschieben 


nt.=nt+i 

goato 1030 
print. 

print spc (10) 
ngen" 


"geschafft in"snt;" d 


Der Schwarze Kasten 


Nur mit einem Laser ausgerüstet, sollen Sie die Standorte einer handvoll Atome, 
die in einem gewaltigen Schwarzen Kasten versteckt sind, entdecken. Er be- 
steht aus 8 mal 8 Würfeln. Atome können in jedem der Würfel, außer in denen 
der äußersten Schicht, versteckt liegen. Im Kasten sind immer fünf Atome. Diese 
Atome werden Laserstrahlen reflektieren oder ablenken nach den folgenden 
Regeln: 


— ein Strahl, der ein Atom trifft, wird gerade zurückreflektiert. 


— ein Strahl, der durch einen direkten Nachbarwürfel geht, wird recht- 
winklig reflektiert. 





— ein Strahl, der durch einen diagonal anliegenden Nachbarwürfel eines 
Atoms geht, wird in eine Richtung reflektiert, die erhalten werden kann 
durch Addition zweier rechtwinkliger Reflektionen. 
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Der Kasten ist wie folgt numeriert: 






Pi 


= DOD NO N 08 





JEREBzZUuE 
ERERZZERE 
Se 


Der Computer wird Sie nach P1, P2 und P3 fragen; das sind die Koordi- 
naten der Position, wo der Strahl in den Kasten eintreten soll. Natürlich muß 
zumindest eine der Koordinaten 1 oder 8 sein, da der Strahl ja nur an einer 
Oberfläche eintreten kann. Wenn Sie den Schuß eingegeben haben, wird der 
Computer Ihnen sagen, wo der Strahl ausgetreten ist. 

Denken Sie daran, der Strahl kann durch mehr als ein Atom reflektiert 
worden sein. 

Nachdem Sie ein paar Schüsse abgegeben haben, sollten Sie imstande 
sein, herauszufinden, wo die Atome sind — aber wieviel sind denn "ein paar’? 


10 rem #* c-64 der schwarze kasten * 
20 dim 5b (9,9,9 

„O0 goto 1000 

100 rem * eingabe des schusses * 

110 print "geben sie den schuss ein:" 
120 gosub 500:rem eingabe 

130 dx= (px=8)- (px=1) 

140 dy= (py=8)- (py=1) 

150 dz=(pz=8)- (pz=1) 

160 if dx=0 and dy=0 and dz=0 then 120 
170 return 

200 rem * ergebnis berechnen * 

210 for tx=-1 to 1 

ad for ty=-1 to 1 

230 for tz=-1 to 1 

240 if b(px+tx,py+ty,pz+ttz)“>1 then 280 
50 dx=dx-tx 

60 dyzsdy-ty 

270 dz=dz-tz 

280 next tz,ty,tx 

290 dx=sgn (dx) sdy=sgn (dy) sdz=sgn (dz) 
300 px=px+tdxspy=py+dy:pz=pz+tdz 
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S10 


if (px=O)+(px=9)+(py=O)+(py=9)+(pz=O 


)+(pz=9)=0 then Z10 

320 print "ergebnis: "spx-dxspy-dyspz-dz 
s30 return 

400 rem * eingabe vermutung * 

410 print "vermutung eingeben" 

420 gosub S00:rem eingabe 

450 if b(px,„Ppy„.pz)=1 then print "richtig 
INsgoto 450 

440 print "falsch!" 

450 return 

s00 rem * eingabe der koordinaten * 

10 print "koordinaten eingeben: '" 

s20 input " pl=";px 

330 if pxtl or px>B then 920 

540 input " pa="spy 

oO if pyil or py>8 then 540 


60 

70 

390 

1000 
1005 
1010 
1020 
1021 
1022 
1023 
1025 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


input " p35=";pz 


if pzil or pz>8 then 360 
return 

rem * hauptprogramm * 
print "=" 


for at=1 to 5 

px=6s*rnd (O) +2 

py=-ö6*rnd (O)+2 

z=dötrnd (O)+2 

if bD(px,py,.pz)=1 then 1020 
b(px,py,px)=1 

next 
gosub 100:rem schusseingabe 
gosub 200: rem resultat berechnen 
print "schiessen oder raten” (s/r)" 
get in$ 

if in$='"s'" then 1040 

if in$<:>"r" then 1070 
gosub 400:rem vermutung eingeben 
goto 1060 
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Schatzsuche 


Haben Sie jemals davon geträumt, auf die Suche nach versteckten Schätzen zu 
gehen? Durch wilde und feindliche Gegenden zu reisen, auf dem Land zu leben 
und im Freien zu schlafen, bis Sie das ferne verbotene Land, wo der funkelnde 
Schatz versteckt ist, erreichen. Wenn dem so ist, ist dies genau das richtige Spiel 
für Sie. 

. Sie werden hoch in die Rocky Mountains versetzt und erhalten eine Karte, 
die Ihnen zeigt, wo die Schätze, die Sie suchen, versteckt sind und was sie wert 
sind. Um sie zu erreichen, müssen Sie sich einen Weg bahnen entlang sich 
windender enger Pfade - ein falscher Schritt bedeutet den sicheren Tod -, 
indem Sie die folgenden Tasten verwenden. 


Rp 


A 








OÖ, für einen Schritt nach oben 


K, für einen Schritt nach links 
‘, für einen Schritt nach rechts 


.„„ füreinen Schritt nach unten 


Sie entdecken die Schätze ganz einfach, indem Sie nämlich drauftreten. 

Aber warten Sie...so einfach ist es nicht. Sie haben doch nicht etwa im 
Ernst geglaubt, daß es so einfach wäre? Die Schätze, die Sie suchen, sind scharf 
bewacht durch ein paar entsetzliche und äußerst bösartige Vögel, die Sie 
attackieren werden, wenn Sie nicht vorsichtig sind. Wenn die Vögel Sie er- 
blicken, werden Sie vor Furcht erstarren. 
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Das einzige, was Sie tun können, um sie zu stoppen, ist die <SPACE> 
Taste drücken. 

Wenn Sie sich der Herausforderung immer noch stellen wollen, starten 
Sie Ihre Suche links unten auf der Karte. Sammeln Sie so viele Schätze wie Sie 
können, und bringen Sie sie weg, durch den Ausgang rechts oben. Das gibt 
Bonuspunkte und eine weitere Chance, den Pfaden entlang zu gehen und 
Schätze einzusammeln. Sie können also so viele Schatzsuchläufe machen, wie 
Sie schaffen. 

Unglückerweise scheuchen Sie jedesmal, wenn Sie durchgehen, mehr 
von diesen schrecklichen Vögeln auf, die zunehmend aggressiver werden. 

Das Risiko ist groß, aber die Belohnung auch, also fassen Sie sich ein Herz 
und los geht's! 


1O rem * c-64 schatzsuche # 
15 poke S3281,1 

20 sc=1024 

s0 d$='"EEFEREREEEEERERER!" 
40 goto 1000 

100 rem * bildschirm * 

110 print "="5 

120 print "Eee 

130 print "E 

140 print 
150 print 
150 print 
170 print 
180 print 
190 print 
200 print 
210 print 
220 print 
2530 print 
240 print 
250 print 
250 print '"# ER 
300 y=14ıx=1 

310 pl=40%#y+x 

>20 poke sc+p1l,0 

>50 print d$:p2,ncı 

s40 return 

400 rem * spieler-bewegung * 
410 t1=400-int (30*nc#rnd (0)) 
420 for du=1 to ti 

450 get dis$:if di$="" then 510 
440) vx=(dis="kK")-(dis=":") 

450 vy=(dis="o")- (dis=".") 

460 np=40% (ytvy)+(x+tvx) 

470 pk=peek (sc+np)sif pkt>32 and (pk<49 
or pk>37) then 510 

480 poke sc+pl,32ıxzx+vx:yzy+vyiplznp 
490) po=pk-48:if po“O then 510 
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SJ00 
510 
320 
330 
800 
610 
615 
620 
630 
640 
650 
[=1-16) 
670 
680 
590 
700 


pil=-pil+tpo:p2=p2+po:print d$;p2; 
poke sc+pl,0O:if pl=40 then du=ti 
next dusif pl>40*15 then 400 
return 

rem * vogelangriffe * 
dt=15-3tnc 

for i=1 to l0:get di$:ınext 
bu=40*y+20 

pk=peek (sc+bu) 

poke sc+bu,S1 

for de=1 to dt:next 


get dis 

if di$=" " or pk=0O then return 
poke sc+bu,pk 

bu=bu-i 

goto 6530 


1000 rem * hauptprogramm * 

1010 gosub 100:rem bildschirm 

1020 gosub 400: rem bewegen 

1050 if pl<40 then nc=nc+l:p2=p2+nc*#pi:p 


1=0: 


gato 1010 


1040 gosub 600: rem vogel 
1050 if pk<>O then poke sc+bu,pk:pl=pil+i1 
ıgot.o 1020 
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l.T. - Das Abenteuer des 
Jahrhunderts 


In diesem verrückten Abenteuer werden Sie in das Erdinnere reisen und dort 
einem äußerst fremdartigen Wesen begegnen. Sein Name ist. T.; das steht für 
Intra Terrestrial. 

Wenn Sie noch nie vorher ein Adventure-Spiel gespielt haben, machen 
Sie sich keine Sorgen über Spielregeln - es gibt keine! Sie müssen alles selbst 
herausfinden, während Sie unter der Erdoberfläche reisen, außergewöhnliche 
Werke vollbringen und dabei schrecklichen Gefahren ins Auge sehen. 

Wenn esIhnen zuviel wird, geben Sie <HILFE> ein: Schauen Sie, womit 
der Computer Ihnen dann unter die Arme greift. 

So, tippen Sie das Spiel ein, schließen Sie eine gute Versicherung ab, 
geben Sie den <RUN > -Befehl und.ab gehts! 


EEE 
. 777 Zr 
ee, 
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10 rem * c-64 i.t. * 

20 gosub 5000 

30 mv=8:nr=0:goto 50 

40 gosub 200 

50 goasub 300 

KU gosub 400 

70 if nw«ö6 then 40 

100 print "Eglueckwunsch! ihnen gelang e 
5, sich selbst umzubringen!" 

110 end 

200 rem * eingabe * 

210 nr=0:mv=0O 

220 input "was jetzt"sc$ 

250 for i=1 to 14 

240 if left$tm$(i),len(c$))=c$ then mv=i 
:j=14 

250 next i 

a60 if mv>& then goto S10 

=70 if mv=0 then print "das verstehe ich 
nicht "ıgoto 200 

280 nr=r (rm,mv)sif nr“>O then 310 

290 print "dieser weg ist versperrt" 

00 goto 200 

S10 print "al"; 

20 return 

400 rem * ausgabe * 


410 print "sie sind i";s:print d$ (rm) 

420 if rm>=25 or (lo and t(1)=0 or t(V)> 

rm) then 430 

425 print "hier ist es finster":goto 440 

4530 for i=1 to 12 

432 if t(i)=erm then print "ein ";t$(i)y" 
ist hier" 

434 next i 

435 if lo and rl>120 then print "ihre la 

mpe ist ausgegangen": 1lo=0 

4536 if lo and rl>100 then print "die lam 

pen-batterien werden schwaecher" 

440) for i=-1 to & 

450 if r(rm,i)®@>Ö then print "sie koenne 

n gehen nach "sm$ (i) 

4ö0) next i 

470 print tab (8), "a" 

490 return 

SO0 rem * bearbeitungen * 

10 if nr«>O0 then rm=enr 

S20 th=0 

s50 for i=1 to 12 

340 if t(i)=rm then thei:i=lz 

soo next i 

360 hl=oO 

70 for i=1 to 6 

80 if hti,ld=rm then hlei:i=6 

s90 nert i 

&00 rem * allgemeine bearbeitungen * 

s1lD if rmil2 and rr©>B then gosub 4200 

620 rlerl-lo 

&530 rem * persoenliche bearbeitungen * 

640 if mvti7 then s60 

50 on mv-ö6 gosub 1000, 1200, 1300, 1400,16 

00, 1700, 1800, 1900 

&&0 rem * handlers * 

670 on hl gosub 2000, 2300, 26500, 2700, 2900 

„3100 

680 return 

1000 rem * mord * 

1010 if not (hl=0 or hl>4)then 1020 

1015 print"zeit ist das einzige, was sie 
hier totschlagen koennen!"sreturn 

1020 tp=7:gosub 4100 

1030 ifpo=Öthenprint'"mit blossen haenden 
angreifen? das ist selbstmord!"ıreturn 

1040 print "sie versuchen "s:print h$(hl 

);'" zu ermöarden" 

1050 print "sie schwingen ihr schwert,"; 

1055 if (hl=1l or hl=2) and (h(hl,2)=6 or 
hihl,2)=5) then 1070 
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1060 if rnd(O)<.5 then print " aber es b 

ewegt sich schnell weg..."ıgoto 1090 
1070 print " und sie versetzen ihm einen 
fuerchterlichen hieb !" 

1080 h(nh1,F9=h (hl, -1 

1090 if rnd(O)>.2 then 1120 

1100 print "dies ist ihre chance!! sie k 

oennen es nochmal treffen, bevor es"; 

1105 print" wieder zu sich kommt." 

1110 input "moechten sie (j/n)"zjan$ıprin 

ı Dr 

1115 if an$="j" then print "sie reissen 

ihr schwert hoch, ";j:goto 1055 

1120 if h(h1,9>1 then return 

1130 if h(hl,39=1 then print "das opfer 

ist schwer verwundet "sreturn 

1140 print "sie haben ihr opfer umgebrac 

ht." 

1150 h(hl, 1)=0:t (hl+8)=ermıhl=0 

1160 return 

1200 rem * hilfe * 

1210 print "Smoegliche befehlesEl" 

1220 for i=1 to 14:print m$(i)snext 

1230 print "Eddruecken sie eine taste" 
1240 get ins:if in$="" then 1240 

1250 print "3"; 

1260 return 

1500 rem * aufheben * 

1305 if (t(1)=0 or t(i)erm) and lo or rm 

»24 then 1310 

1306 print "sie sehen nicht einmal die h 

and vor den augen, geschweige denn "3; 
1507 print"etwas zum aufheben!":sreturn 
15310 if th=0 then print "hier gibt es ni 

chts aufzuheben":return 

1320 print "ich nehme ";t$(th) 

1330 p (lp)=th: Ip=1Ip+i:t (th)=0:th=Ö 

1540 return 

1400 rem * hinlegen * 

1410 if 1p=1 then print"sie haben nichts 
Itspeturn 

1420 print "was hinlegen":input d$:print 
3": 

1430 tp=O: for i=i to 12 

1440 if d$=left$(ts(i),len(d$)) then tp= 
i:i=12 

1450 next i 

1440) if tp=Ö then print "das verstehe ic 

h nicht"sreturn 

1470 gosub 4100 

1480 if po=0O then print "sie tragen kein 


"ssprint t$(tp)egoto 1980 
1490 print "ich lege "ıt$(tp)s" hin." 
1500 th=p (po) st (th)ermılp=lp-lsp (po)=p (Il 
pP) 
1520 input "moechten sie mehr hinlagen"s 
ans 
1530 print "5"3 
IS40 if an$s="j" then 1420 
1550 return 
LSA00 rem * ausruestung * 
1610 if Ip=1 then print "sie haben gar n 
ichts!"ıgoto 1840 
1820 print "sie haben dabei:" 
1530 for i=1 to 1Ip-1l:print t$(p (i))ınext 
1540 print "sie koennen"; S=-nws;" weitere 
wunden ertragen" 
1850 return 
1700 rem * bandage * 
1710 tp=ö:gosub 4100 
1720 if po=0 then print "sie schaffen es 
nicht ohne bandage"sreturn 
1730 print "es schaut nicht sehr gut aus 
. ich brauche alles, was sie haben." 
1750 print "ok, das haelt fuer eine weil 
@u u 
17&0 nw=0: lp=1lp-1:p (po) =p (1p) 
17709 return 
1800 rem * lampe ein/aus %* 
1810 if LCD>O and tL(DD:>rm then print " 
erst eine lampe haben!'ı:sreturn 
1820 if r1>120 then print "ihre batterie 
n sind leer":sreturn 
1830 lo=not 10 
1840 print "die lampe ist jetzt '"; 
1850 if lo then print "ein"sreturn 
1850 print "aus" 
1870 return 
1700 rem * lesen #* 
1910 tp=4d:gosub A100 
1920 if poxX:>O then 1930 
1925 print "hier gibt es nichts zu lesen 
Isreturn 
19:0 if not lo and rmi&S then print "es 
ist zu dunkel zum lesen"sreturn 
1940 t$="dr fhas hm chdrdl atbg"sgosub 4 
OOO 
1950 t$="dr kzetsds: "ıgosub4000 
1952 print 
1955 t$="mhll cdn bdgadgtr tmc"sgosub 40 
OO 
1960 t$="dhm jngmat.dnadk. "3 gosubA4U0O 
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1970 t$="kdf dr hmr edtdg. ":gosub4000 
1980 print "das ist alles!" 

1990 return 

2000 rem * i.t. * 

2010 if th=3 then h(1,2)=Fıt (th)=0:th=o 
20820 on h(l1,2) goto 2030, 2080,2090,2190, 

220 

2030 print tab (D);"'*# i.t. #8" 

20534 print "i.t. ist hier, er spricht ei 

ndringlich, aber sie koennen nichts "; 
2055 print"verstehen. ":print 

2038 print 

2050 h(1,2)=2ıreturn 

2060 t$="h.s. ekdgs tl vzrrdg. dgq rbgzts 
udgyvhedks ztr."rgosub 4000 

2075 print 

2080 return 

2090 t$="h.s. sahmjs vhd dhm"sgosub 4000 
2095 t$="udgctdgrsdmedg. "ıgosub 4000 

2100 t$="mzbg dhmdgq vdhkd"sgosub 4000 

2110 t$="ezdmfs dq vhdcdg zm yt":sgosub 4 
OOO 

2115 t$="adedm tmc rhd jndmmdm'"sgosub400 
Ö 

2120 t$="hgm okndsykhbg udgarsdgdm !"sgos 
ub 4000 

2133 t$="fdgdm rhd qtmsdgq tmc"sgosub 400 
Ö 

2138 t$="ehmcdm rhd chd nldfz-mtkk-anlad 
INzgosub4000 

2140 t$="dhm hagqdq oagqnedrrng Indbgsd chd 
"ıgosub4000 

2145 t$="vdks ydarsndadm!":goasub4000 
2150 t$="hbg gzad Ihs cdl caqgzbgdm, cdgq c 
hd anlad":goasub4000 

2155 t$="advzebgs, fdjzdloes":gosub4000 
2160 t$="hbg ahm dqakdcehfs! rhd 1Itdrrdm c 
hd dgqed qdssdm !"rgosub4000 

2170 print "ploetzlich bricht i.t. zusam 
men!" 

2180 ht1,2)=4:return 

2190 print "i.t. ist anscheinend bewusst 


los, sie muessen es jetzt alleine '"; 
2200 print"schaffen...":print"viel gluec 
K:!"sprint 


2210 hti,@M)=-Srreturn 

2220 print "i.t. ist hier. er ist bewuss 
tlos.":print 

2240 return 

2500 rem * drache * 

2310 if th=8 then h(2,2)=5:t (th) =0:th=0 


2320 on h (2,2) goto 2330, 2370,2400,2430, 


2470,2320 
25330 print "hier ist ein gigantisches mo 
nster. es rollt die augen und bruellt" 


2355 print:print "bist' ein keks”?" 

2360 h(z,2)=e2ıreturn 

2370 print "das monster bruellt lauter u 
nd lauter si!" 

2580 print "bist' ein keks ?'!!" 

25390 h(2,2)=Sıreturn 

2400 print "das monster bruellt weiter, 
und es wird ziemlich aggressiv." 

2420 h(2,2)=4ıreturn 

2430 print"das monster verpasst ihnen ei 

nen furchtbaren hieb.ihr kopf wackelt!" 
2450 nwenw+i 

450 h(2,2)=fnrd (5)+lereturn 

2470 print "das monster sagt ueberrascht 
: kekse "7!" 

480 print "und faengt an zu fressen. ei 
n enormes" 

2495 print " ' bang! 

2497 print "und es faellt in schlaf." 

500 r (16,6)=1 

2510 hi2,2)=d:return 

2520 print "das monster schlaeft.'" 

2530 return 

2600 rem * schlange * 

=610 print "hier ist eine schlaengelnde 

schlange' 

2620 if rnd(9)%.4 then return 

2650 if l1p=1 or rnd(0)%.5 then 2670 

640 rn=efnrd(1p-1):t (p(rn))=e12+tfnrd (12): 
lp=1p-1:p (rn)=p (l1p) 

2650 print "mit einer schnellen bewegung 
schnappt sie etwas und" 

2670 print "schlaengelt weg" 

2680 h(3,2)=ht(}, 1) +r3rif h(3,2D>24 then h 
(3,1)=h(3,1)-8 

2690 return 

2700 rem * hoellenhund * 

2710 on h(4,2) goto 2720,2750,2780 

2720 print "hier ist ein riesiger hoelle 

nhund.' 

2750 print"er schaut sie an, als ob er s 
ie zum" 

2735 print"fruehstueck verspeisen moecht 

&,; N 

2740 h(4,2)=Z:return 

2750 print "cerberus greift an und beiss 

t sie gefaehrlich.'" 
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2760 nw=nwtl 

770 h(4,Z2)=3:return 

780 print "cerberus knurrt und macht si 
ch bereit" 

790 print"fuer einen weiteren angriff." 
A800 h(4,M)elt+tfnrd (dirreturn 

900 rem * bombe * 

=9710 print "die omega-null-bombe ist hie 


r. sie sehen drei draehte"; 

920 print " zwischen der bombe und dem 
zuender:":sprint 

2925 print "einen gruenen ar 
2927 print "einen gelben (v}ı, " 


2929 print "und einen roten (r)":print 
2930 print "sie muessen zwei loesen, um 

sie zu entschaer fen." 

2940 input "welcher zuerst "sx$ 

2950 input "und welchen jetzt",y% 

960 ch=Osc$="gyr"sfor i=1l to 5 

2970 cb=cb- («$=mid$ (c$,1,1))- (y$enid$ (c$ 
5.2) 

2980 next i 

2990 if cbzz then print "Svorsicht'!'"spri 
nt. "falsche eingabe!":goto 2910 

SOON if ascı (u$)#asc (y$)=5828 then 3030 
5005 for i=1 to 10:poke Sz8l,!1 

010 print "3% grosse explosion ##" 
„Ol2 print " I wolkenpilze !#'" 

„Old print "sie waren tapfer, aber es wa 
r ihnen" 

2020 print "nicht vergoennt...„" 

SOa2 for j=l to Arpoke 53291,9ınext ji 
025 end 

3020 print "helfe Be iisfheseae 9 Lueckwunsch 
x" 

„040 print "Eihnen gelang, was keinem ge 
lang" 

SOS0 end 

„100 rem * gri)ll * 

2130 if t&)erm and t(l2)=rm then th=d:t 
(th)ermit A)=0:ıt (12)=0:h (d,2)=2 

2140 on h(&,.2) gato 3150,3190, 3220 

A150 print "hier ist ein riesiger grill, 
mit " 

3165 print "einem grossen feuer darunter 
„170 return 

3180 print " ein greller blitz erleuchte 
t den ort." 

3185 for i=1 to 40: poke 53281, 1l:next i 
1865 poke SI=281,2 


3187 print "und ein penetranter geruch s 
teigt in ihre nase" 
3210 h(&,2)=3:return 
s220 print "jetzt ist alles ruhig, sogar 
der penetrante geruch ist weg." 
3250 h(&,2)=l:return 
4000 rem * text dekodieren * 
4010 tn$="":for il=1 to len (t$):c$=mid$( 
t$,i1,1) 
4020 if c$="z" then c$="a"ıgoto 4030 
4025 if c$>="a" and c#$i'"z" then c$=chr$( 
asc (c$) +1) 
4050 tn$=tn&$+c$ 
4040 next:if not in then print tn$ 
4050 return 
4100 rem * was sie dabeihaben * 
4110 po=O: for i=1 to 1p-1 
4120 if ptli)=tp then po=i:i=-lp-1 
4130 next i 
4140) return 
4200 rem * raetsel * 
4210 rt=rt+i1 
4220 if rm=ss(rt) then rr=err+i 
4250 if rt«8 then return 
4240 if rr=8 then 4310 
4250 for q=i1 to B8ö:poke 53281,0:next q 
4255 print "totale dunkelheit umgibt sie 
und sie" 
4265 print "fuehlen, dass sie emporgehob 
en werden." 
4270 print "einen moment lang sind sie b 
ewusstlos. '" 
4290 poke 332891,2 
4290 rt=1:rr=l:ırmel 
4300 return 
45310 print "sie hoeren ein eigenartiges 
geraeusch, wie wenn etwas"; 
45530 print "weggeschoben wird." 
4340 for dl=1 to 3000:next di 
4350 print "jetzt ist es vorbei." 
Ss60 r(2,1)=3 
4570 return 
S000 rem * initialisieren * 
SO10 print "=El"spc (7) "einen moment gedu 
ld, bitte." 
s020 dim r (36,6),d$ (36) ,m$ (14),h (6,3),h$ 
(&),t (12),t$(12),p(12),d (8) 
5030 def fnrd(x)=int (x#trnd (OÖ) +1) 
S100 rem * verbindungen * 
s110 for i=1 to 36 
5120 r(i,V=sitlir (i,D)ei-lır 1, Deitdır 
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i,4)=i-4 

130 next i 

3140 for i=0 to 24 step 12 

„150 for j=1 to 9 step 4:r (irj+3, D=0:r( 
itj,2)=O:next 

S160 for j=ei to 4:r (i+rj+8,5)=0:r (irj,4)= 
Ö:next 

170 next i 

5180 r (1,59) =16:r (7,59)=15:r (32,6)=15:r (13 
‚eızır (35,6)=18:r (18,5)=35 

190 for i=1 to 15:read rmıread mver (rm, 
mv)=O:next 

3200 rem * initialisieren der parameter 
* 

3210 rm=36:po=1:1p=1:r1l=0:1lo=0:nw=0:rt=O 
ırr=O 

500 rem * arrays fuellen # 

5310 in=-1 

3320 for i=1 to 14:read m$ (i):next 

535350 for i=1 to Ii2:ıread t$:gosub4000:t$ ( 
i)=tn$:rnext 

3540 for i=1 to Sıread t$:gosub A000:n%$ ( 
i)=tn$:ınext 

3550 for i=1 to 36:read tT$:gosub 4000: d$ 
(i)=tn$&ınext 

5360 for i=1 to Ii2:read t (i)ınext 

5370 for i=1 to diread h(i,l),h(i,S):sh(i 
‚„2e)=lınext 

5580 for i=1 to S:read s(i):ınext 

3390 in=O 

S400 return 

5500 data 21,1,22,2,22,1,23,2,18, 1,19, 2, 
16,3,20,4,11,1,12,2, 7, 1,8,2, 7, 4, > 2, 2, 1 
5510 data osten,westen, norden, sueden, obe 
n,unten,toeten,hilfe, aufheben, hinlegen 
5515 data ausruestung, bandage, lampe, lese 
n 

5520 data kzlod, jngmatdmcdk,vzrrdgadtsdk 
‚jnbgatbg, akzss,azmczfd 

5524 data rbgvdas, jdjr, jndgodgq unm h.s. 
5525 data ghdrdmkdhbgd,gzkad rbgzmfd,sns 
dq gtmc 

5550 data h.s.,„ıInmrsdq, rbgzmfd, bdgadatr, 
fahkk,anlad 

5540 data m cdq rszgs-gndgkd,m cdgq e-gnd 
gkd,1 fdgdhlfzmf,1l jnmsankkgztl 

5541 data m cdq f-gndgkd,m cdq t-gndgkd, 
m cdq z-gndgkd,1 rbgvzgydm rzzk 

5545 data m cdg d-gndgkd,m cdgq g-gndgkd, 
m cdgq kddg-gandgkd,m cdgq kKddad 

5550 data m cdgqg jkdhmdm gndgkd,m cdgq edk 
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rdmgndgkd,m cdgq rshmjdgq-gndgkd 

sssl data m cdgq caqazbgdmgndgkd,m cdq rbgk 
zmfdmgndgkd,m cdgq fdkadm gndgkd 

35353 data m cdgqg edtbgsdm gndgkd, "Mzm dhm 
dl rshmjdmedm ngs" 

356 data m cdq drrfanssd,m cdq dmcd-gnd 
gkd 

5997 data m cdq ezga-fanssd,m cdgq dhr-gn 
dgkd.„,m dhmdg khbgstmf 

SS data 1 vekc,l.vzkc,1l vekc,1l vzkc,1 
v_eke 

SS561l data 1 vekc,„l vekc,„l vekc,1l vzkc,1 
vzkc,1 vxke 

370 data 34,30,28,21,14,15,13,.0,0,0,0,0 
380 data 34, 2,16, 15,17,4,29,2,8,. 1,25, 1 
5570 data 1,5,9,10,11,7,6,2 
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Der Wolf und die fünf Geißlein 


Ein Märchen der Gebrüder Grimm? Nein, ein mitreißendes Brettspiel. Dieses 
Spiel wird auf einem auf dem Bildschirm gezeigten Damebrett gespielt. 

Wenn das Spiel beginnt, sind die Ziegen auf der unteren Bretthälfte 
verteilt und durch kleine Quadrate mit einer Zahl dargestellt. Der Wolf befindet 
sich oben links im Spielfeld. Los geht's - Sie sind der Wolf und gewinnen, wenn 
Sie drei Ziegen verspeisen, und der Computer gewinnt, wenn eine der Ziegen 
Sie verspeist! 

(Diese wölfeverspeisenden Ziegen sind verbluffende Viecher!) 

Sie dürfen anfangen. Auf der unteren Schirmhälfte sehen Sie folgendes: 


SIE DUERFEN...ZUEGE EINGEBEN 
beispielsweise 
SIE DUERFEN 2 ZUEGE EINGEBEN 


Die Zahl der Züge liegt immer zwischen 1 und 3, und sie sagt Ihnen, wieviele 
Züge Sie machen dürfen, während Sie dran sind. 

Der Wolf - mit anderen Worten Sie - darf vertikal oder horizontal ziehen, 
aber nie diagonal. Jeder Zug muß mit den Cursor-Tasten eingegeben werden. 

Wenn der letzte Zug einer Serie Sie auf ein Feld mit einer Ziege bringt, 
gehört sie Ihnen. Sie dürfen nie ein Feld überqueren, das eine Ziege enthält. 

Es gibt insgesamt 5 Ziegen, und diese können einander überspringen. 
Ziegen können nur in eine Richtung ziehen. Die Zahl der Schritte, die sie 
machen dürfen, ist auf den Ziegen selbst gezeigt, und liegt immer zwischen 1 
und 5. Zum Beispiel, wenn eine Ziege die Zahl 3 trägt, kann sie wie folgt ziehen: 


3 Schritte nach links, oder 
3 Schritte nach rechts, oder 
3 Schritte vorwärts, oder 

3 Schritte rückwärts 


Siekann nicht 1 Schritt vorwärts und 2 Schritte nach links ziehen. Wenn Sie (der 
Wolf) gezogen haben, zeigt der Computer 


JETZT BIN ICH DRAN 
Wenn Sie dran sind, zeigt der Computer 
SIE DUERFEN... ZUEGE EINGEBEN 
Am Ende des Spiels sagt der Computer entweder 
SIE GEWINNEN 
oder, schlimmer 
SIE HABEN VERLOREN 
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10 rem * c-64 der wolf und die fuenf gei 
sslein * 

20 dim b (10, 10),r (9) ,c(5),nm (5) 

30 cs (O)="E" 

40 c$(I)=" " 

0 d$="SEEEEFEREEEERER!" 

&0 goto 2000 

1000 rem * ein feld zeichnen * 

1010 on ca+2 goto 1020, 1030, 1040 
1020 r=erwic=cwitx$=e'"ww"sgoto 1070 
1050 tx$=c$ (r+c and 1)ıgoto 1070 
1040 r=r (gt) :c=c (gt) 

1050 tx$="g"+right$ (str&(nm(gt)), 
1060 ca=gt 

1070 print left$(d$,S+r)ystab (2*c-1) ıspc ( 
7) tx$ 

1080 b(r,c)=ca 

1090 return 

1100 rem * initialisieren * 

1110 rem schachbrett zeichnen 

1120 print "="; 

1150 for r=1 to 10 

1140 for c=1 to 10 

1150 ca=0:gosub 1000 

1160 next c,r 

1170 rem wolf hinstellen 

1180 rwelscw=linm=eint (rnd (0) #*3+1) 
1190 ca=-iI:gosub 1000 

1200 rem geisslein hinstellen 

1210 for gt=1 to 5 
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1220 r (gt)=int (rnd (O)*#10+1) 

230 c (gt) =int (rnd (0) #10+1) 

1240 nm (gt) =int (rnd (0) *5+1) 

1250 if b(r (gt),c (gt))«>O0 then 1220 
1260 ca=lıgoasub 1000 

1270 next gt 

1280 return 

1500 rem #* wolf bewegen * 

1310 print d$; "sie duerfen"sinm; "li zuege 


eingeben" 
1520 for du=i1 to nm 
13530 get mv&:if mv$="" then 1330 


1350 rd= (mv$="EH" and rw>1)- (mv$="E" and 
rw 10) 

1360 cd= (mv$="WM" and cw>1)- (mv$='"W" and 
cew 10) 

1370 te=b (rw+rd, cw+cd) 

15980 if te<O or te>O and duinm then 1330 
1390 nm (te) =0 

1400 sc=sc+tsgn (te) 

1410 r=erwic=cen 

1420 ca=O:gosub 1000 

1430 rw=rw+rds cwscw+tcd 

1440 ca=-1:gosub 1000 

1450 next du 

14&0 nm=int (rnd (O)*3+1) 

1470 return 

1500 rem * zug des computers * 

1510 print d$; "jetzt bin ich dran 


1520 rem bewertung 

1530 mx =-400 

1540 for gt=1 to 5 

1550 if nm(gt)=0 then 1800 

1560 cg=c (gt) srg=r (gt) +nm (gt) sgosub 1800 
1570 rg=er (gt) -nm (gt) :gosub 1800 

1580 rg=r (gt) :cg=c (gt) tnm (gt) sgosub 1800 
1590 cg=c (gt) -nm (gt) :gosub 1800 

1500 next gt 

1610 rem geisslein ziehen 

1620 c=c (gb) :r=r (gb) 

1630 ca=0:gosub 1000 

1540 r (gb) =rb:c (gb) =ch 

1650 nm (gb) =int (rnd (0) #5+1) 

1660 gt=gb 

1670 ca=l:gosub 1000 

16980 if mx“400 then return 

1690 print d$;" sie haben verloren 


1700 end 
1800 rem * status *# 


1810 if abs (r (gt) -rw) +tabs (c (gt) -cw)=nm t 
hen sq=200:goto 1820 

1815 sq=O 

1820 if rg“1l or rg>10 or cgs1l or cg>10 t 
hen return 

1850 if b(rg,cg)>O then return 

1840 di=abs (rw-rg) +abs (cw-cg) 

1850 if di=O0 then sq=300:goto 1930 

1860 if di=nm or di=nm-2 then return 
1870 if di<i=5 then sq=sq+33 

1880 sq=sq-40% ((rgerw) + (cg=cw)) 

1890 for g=1 to 5 

1900 sq=esq-10* ((rgz>r (g))+(cgi>c(g))) 
1910 next 

1920 if sq+trnd (Oö)<mx then 1940 

1930 mx =sq:gb=gt:rb=erg:cb=cg 

1940 return 

2000 rem * hauptprogramm * 

2010 gosub 1100:rem initialisieren 
2020 gosub 1300:rem wolf ziehen 

2030 if sc=3 then 2050 

2040 gosub 1500:rem zug des computers 
2050 goto 2020 

2050 print d$z" sie gewinnen 


2070 end 


Alphabahn 


Dieses Programm demonstriert wiederum die Nützlichkeit der Sprites. Nach- 
dem Sie RUN eingetippt haben, erscheint eine befahrene Autobahn mit vielen 
Wagen. Ihre Aufgabe ist nun, sicher über diese Straße zu gelangen. Damit aber 
nicht genug: Wenn Sie genau hinsehen, entdecken Sie ein komplettes Alphabet 
über der Autobahn, A, B, C, und so weiter. Sie sehen schon, Ihre Aufgabe wird 
immer schwieriger... 

Bei Spielbeginn fragt der Computer nach dem Spielniveau, welches dann 
die Geschwindigkeit der Wagen beeinflußt. Jedoch fahren nicht alle Wagen 
gleich schnell, was das Ganze nochmals erschwert. 

Falls Sie das Pech haben, in einen Unfall zu geraten, fragt der Computer: 


NOCHMALS? 


Durch J werden Sie wundersam geheilt, und das Spiel beginnt von neuem. 


10 rem * c-64 alphabahn * 

20 print "=" 

0 ve 53248: rem * niedrigstes sprite-re 
gister 

40 poke v+2l, OÖ 

SO av= peek( v+30): rem kollisions-regis 
ter initialisieren 

&0 poke 2040, 14 

70 poke v+359, 1 

80 rem niveau-eingabe 

90 print "niveau (1-5) 7" 

100 get 1$ 

110 if 1$> "5" or 1$% "1" goto 100 

120 l= valt 1$): print "=" 

130 rem sprite O definieren 

140) for i=O to 42: read q 

150 poke 852+i, qg: next i 

160 for i= O to &2: poke 8I6+i, 0: next 
is rem sprite OÖ legen 

170 poke 53281, 6: poke 53280, 6: rem fa 


rbe 

180 rem bildschirm 

190 print "= strassenrennen " 

200 print "E niveau: '";l1 

210 print "EREI abedefghijklimnopgr stuvwx 
yz u 


220 for i= 1 to 14 
2530 print '3 


240 next i 
250 print "Melslatnıntelainieintninintei s 


100 


260 rem sprites 1-7 initialisieren 

270 for i= 1to7 

280 poke 2040+ i, 13 

290 poke v+2%#i, 240 

s00 poke v+t2* i+til, 95+ 16%i 

310 poke v+ 39+i, 2a%#i-l 

520 next i 

330 poke v+t42, 2 

>40 poke v+21, 254 

s50 for i= 1 to 26: rem hauptprogramm 

360 poke 56354, peek( 56334) and 254: re 

m zeichen setzten 

>70 poke 1, peek( 1) and 251 

S80 for j= 0 to 7 

3590 poke 896+ 3*j, peek( 33248+ i%*89+j) 

400 next j 

410 poke 1, peek( 1) or 4 

420 poke 56354, peek( 565534) or 1 

4530 poke v, 32+ i%*8 

440 poke v+1, 98 

450 poke v+2l, 255 

460) for av=1 to 2590: next av 

470 print " NEEEEEEEEREEEEEE!' ; 

480 rem spielen 

490 for k= 1to 7 

500 jo=peek (56321) 

510 if not jo and 1 and peek( v+l)> BL 

hen poke v+t1, peek( v+1l)- 2 

520 if not jo and 2 then poke v+i, peek( 
v+l)+ 2 

330 x= peek ( vtr2rk)- 5#1* rnd( 1)-10- i/ 

2 

S40 if x<O then x= x+240 

550 poke v+terk, x 

J&öl if peek( v+50) and 1 then print: pri 
nt "unfall !!!"z goto 690 

5370 if peek( v+i)= 218 goto H00 

580 next &k 

370 goto 490 

00 for av= 1 to 250: next av 

610 rem naechster buchstabe 

20 print chr$( 64+i);, "Meleieinieininininininieieie] 


9 

6350 poke v+21l, 254 

&40 next i 

&50 rem end 

&60 poke v+t2l, Or: print "Sgratuliere!" 
670 for av= I to 2000: next av 

&80 if 155 then 1l= 1I+1s goto 190 

&90 for av= 1 to 1000: next av 

700 getav$:if av$<> "" goto 700 


101 
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710 print "nochmals? (j/n) "3 

720 get a$ 

730 if a$= "" goto 720 

740 if a$= "j" then run 

750 if asi> '"'n" then 720 

7&0 poke v+2l, O 

770 end 

ao data 0, 0, 0, 0, 15, 254, 0, 15, 254 
‚0, 15, 254, O0, 127, 254 

7909 data OÖ, 159, 254, 0, 159, 254, 0, 25 
5, 254, 0, 240, 0, 0, 255, 254 

800 data OÖ, 124, 124, Ö, 56, 56, 0, 0, 8 
„ 0, 0, 0, 0, 0, 0 

810 data OÖ, 0, 0, OÖ, 0, 0, 8, 0, 0, 0, 08 
. 0, 0, 0, 0, 0, 0, 6 


Auf dem Markt 


Sind Sie schon jemals durch einen Markt gegangen und gestaunt über die 
Geschwindigkeit, mit der ein Verkäufer eine Preisliste addieren kann? Spielen 
Sie dieses Spiel mit Ihrer Familie und finden Sie heraus, was für eine Figur Sie 
als Markthändler abgeben würden. 

Sie werden Zahlenpaare von zunehmender Länge sehen, die Sie addieren 
sollen. Sie werden schnell herausfinden, daß es nicht so einfach ist, wie es 
aussieht. Um zu sehen warum, betrachten Sie folgende Summe 


15856 
+ 37637 


Normalerweise würden Sie erst die Ziffern in der rechten Spalte zusammenzäh- 
len, dann die nächste Spalte, und so weiter. Jedoch mit dem Computer müssen 
Sie die Lösung mit der linken Spalte beginnend eingeben. Dieser Unterschied 
macht das Spiel so vertrackt. 

Wieviele Zahlen können Sie richtig in der gegebenen Zeit von etwa einer 
Minute addieren? Können Sie unseren Rekord von acht brechen? 
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10 rem * c-64 auf dem markt * 
20 dim j0$ (9) 

sO for i=0O to 9 

40 read jo$(i) 


50 next 
&0 print "all"; 
70 nr=0:ti1$="000000" mel 


80 goto 1000 
90 data dummkopf,knirps, abce-schuetze,ang 
estellter ,autohaendler ,makler 
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100 dataerfolgreicher boersenfachmann,to 
pmanager „millionaer „lehrer 

200 rem * zufaelliges addieren * 

210 n1$=str$ (int (1+ (mx-1)*rnd (O))) 
220 ne2$=str$ (int (1+(mı-1)*rnd(O))) 
250 an=val (ni%)+val(n2$) 

240 print tab (nr+12-len (n1$)) ın1$ 
250 print tab (nr+12-1len (n2$) )ın2$; "+" 
255 print Belle" > 

260 for du=ö to nr+i1 

270 print "-"3 

280 next 

285 print 

290 return 

SO0O rem * eingabe antwort * 

„10 input "ergebnis";an$ 

>20 return 

00 rem * pruefen der antwort * 

505 print:print 

S10 if vallan$)=an then print "richtig!E 
"inrenr+l:goto 540 

320 print "falsch!" 

325 print 

350 print "es war:"san 

555 print "zeit:"sstr$ (int (ti/.8) /100)3" 
sec" 

540 return 

1000 rem * hauptprogramm * 

1010 mx =mx #10 

1020 gosub 200:rem addieren 

1030 gosub 300:rem antwort eingeben 
1040 gosub 500:rem check 

1050 if val(an$)=an then 1010 

1060 print "jobs"s:print j0$ (nr) 


Fallout 


Am Anfang dieses einfachen aber fesselnden Spieles werden Sie acht horizon- 
tale Balken mit Löchern sehen. Über den Balken sind acht Steine, die durch die 
Löcher fallen können. In diesem Beispiel 


OB WB OD ® 


mm 2) UM HE BEE 
ME EEE DM HEEE BEE 


ist Stein 2 bereits in ein Loch gefallen. Der Sinn dieses Spieles liegt darin, alle 
acht Steine durch die Balken zu bekommen. Dies können Sie erreichen, indem 
Sie die Balken so verschieben, daß die Löcher eine Linie bilden und so die 
Steine durchfallen können. 

Um einen bestimmten Balken zu bewegen, geben Sie einen Befehl in der 
folgenden Form ein 


BRS 


wobei 

B die Nummer des Balkens ist (die Balken sind von 1 bis 8 von oben nach 
unten durchnumeriert). 

R ist die Richtung, in die Sie verschieben wollen (I für links, r für rechts), 
und 

S ist die Zahl der Schritte, um die der Balken verschoben werden soll. 


Zum Beispiel 
3R2 
verschiebt Balken 3 um 2 Schritte nach rechts. Dies klingt vielleicht wie ein sehr 


simples Spiel, aber wenn Sie wirklich mit Spielen anfangen, werden Sie heraus- 
finden, daß es eine ziemlich harte Nuß ist. 
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10 rem * c-64 fallout * 

20 dim h (16,8) 

>00 print "="; 

40 rem * mit balken fuellen * 

SO for x=0 to 16 

60 for y=1 to 8 

70 hia,y)=l 

BO next yıXx 

90 rem * 4 zufallsloecher * 

100 for y=1 to 8 

110 for b=1 to 4 

120 »=int (rnd (O)#16+1) 

150 hix,y)=0O 

140 next b,y 

150 rem * 1-8 obenhin drucken * 

1&0 for b=1 to 8 

170 h (2%*b-1,0)=b+100 

180 next b 

190 gosub Silü:rem * zeichnen 

200 gosub 910:rem * aendern 

210 gosub 6ilü:rem * zeichnen 

sO0 rem * befehl holen * 

10 input z$ 

Seal y=val(left$(z$,1)) 

350 if y£l or y>8 then 310:rem * loesche 
n 

340 d$=mid$(z$,2,1) 

„s0 dx=val(mid$(z$,5)) 

S60 if d«=0 then S10:rem * loeschen 

„70 if dst="1l" and d$@>"r" then S10:rem 
* loeschen 

>80 if d$="1" then gosub 1110:rem * link 
s schieben 

290 if d$="r" then gosub 1210:rem * rech 
.ts schieben 

400 br=br+1 

410 gosub 910:rem * aendern 

420 gosub &lÜü:rem * zeichnen 

430 if sc}=36 then end:rem * wenn alle s 
teine durch sind 

440 if dx>1 then dx=dx-1L:goto 380:rem * 
d»-mal wiederholen 

s00 rem * loeschen 

„10 print "EREREERERE!" 

320 for y=10 to 21 


550 print " a 
S40 next y 

Sss0d print " "; 
»&0 print "EEEEREEEE!" 


70 goto S10:rem * befehl holen 
&ö0 rem * zeichnen 
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s10 print "ikea"; 

620 for yl=0 to 8 

6350 rem * balkennummer drucken (oder nic 
ht.) 

&40 if yi=Ö0 then print " ne 

650 if yl1>O then print spc (B) str$(yl)y" 
HEN) for x=O to 16 

670 z=h (x,y1l) 

&80 gosub Blü:rem * element drucken 

690 next x 

700 print 

710 next yil 

720 print spc (8) "punktzahl";sc;" schrit 
te";sbr 

750 return 

800 rem * element drucken 

8ldO if z=O then print " "5; 

820 if z=1 then print "33"; 

830 if z>100 then print chr$(z-52; 

840 return 

900 rem * aendern 

910 for yl=8 to OÖ step -lırem * suche vo 
n unten nach oben 

y20 for x=0 to 16 

930 ty=yl 

940 if hix,y1l)<£100 then 1020 

950 if ty>=8 then 1040:rem * unten angek 
ommen 

960 if hix,ty+ri)<£>0 then 1020:rem * bloc 
kiert 

970 rem * stein durch 

980 hix,tyri)=sh (x,ty) 

9709 hix,ty)=O 

1000 ty=tyril 

1010 goto 950:rem * weiterschieben 

1020 next x 

1050 next yl 

1040 return 

1050 rem * unten angekommen 

1LO&0 sc=sc+th (x,ty)-100 

10709 hix,ty)=0O 

1080 goto 1020 

1100 rem * balken nach links verschieben 
* 

1110 tm=h (0,y) 

1120 for x=0 to 15 

1130 hix,y)=htx+l,y) 

1140 next x 

1150 ht(i1ö,y)=tm 

1150 return 
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1200 rem * balken nach rechts verschiebe 


1210 tm=h (16,y) 

1220 for »x=16 to 1 step -1 
1230 h(x,y)=h (u-1,y) 

1240 next x 

1250 h(ö,y)=tm 

1260 return 
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UFO Angriff 


Beschreiben wir das Spiel zuerst so realistisch wie möglich. In der unteren 
Hälfte des Schirmes befindet sich eine Figur wie diese: 





Kleine Quadrate fallen vom oberen Bildschirmrand hinunter. Sie müssen die 
Figur mit Hilfe der Cursor-Kontrolltasten bewegen, damit die Quadrate sie nicht 
mehr treffen. 

Wem das zu dumm klingt, wie wäre es hiermit... 


Sie sind Kommandant eines der besten Raumschiffe im Universum. Wenn Sie 
majestätisch durch die Milchstraße kreuzen, können Sie sich eines Gefühls des 
Stolzes auf dieses herrliche Gefährt unter Ihrem Befehl nicht erwehren. Dann, 
gerade wenn Sie sich der Basis nähern und das Ende der Reise in Sicht ist, 
schlägt das Schicksal zu — 


UFO ANGRIFFI 


Wie können Sie diesen unfreundlichen Eindringlingen von jenseits der Milch- 
straße entkommen? 
Warum nicht Ihren 


SUPERATOMAREN FLUCHTMOTOR 


ausprobieren? 

Je mehr UFOs Sie entkommen, desto mehr Punkte bekommen Sie. 

Das klingt besser, oder? Wie dem auch sei, das Spiel ist schnell, einfach 
und macht viel Spaß beim Spielen. Und nur das zählt. 


iO rem * c-64 ufo angriff * 
20 sr=53248 

>00 poke2040, 15 

40 for i=O0 to &2 

0 read x 

&0 poke 13#64+i,x 

70 next 

80 poke sr+t23,1lipoke sr+t29,1 
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90 poke sr+1l,1l1z:poke sr+359, 7ıdu=peek (sr 


+31) 
100 
110 
120 
130 
140 
145 
150 
160 
170 


m&=" Eua 3" 

poke 646,1 

input "Sniveau (1-3)"sle 

if leii or le>35 then 120 

print "=S"s:pl=21 

pokesr+Z1,1 

po=po+1l 

rem * ufo erzeugen *# 
sa=40%9+p1l-40%*int (4#rnd (OÖ) +5-1e) +3-6 


*rnd (O0) 


180 


get a$ 


190 pl=pl+(as="Ml" and pl>O)- (at="M" and 


p1:40) 


OO 
210 
220 
250 
40 
20 
re -1 8) 
270 
1-18 
290 
300 
>10 
SO 
50 
340) 
510) 
Sa0 
70 
Sg0 
>90 
400 
410 
420 
430 
440 
450 
40 
470 
4890 
490 
SOO 
310 
320 
330 
340 
550 


rem * schiff und ufo bewegen * 
p1%4=p1*8 

p2%=p 1% /255:p 1%=p 1%4-p24*255 
poke sr,pil%:poke sr+1&,92% 
al=0:a2=sa 

if sar255 then al=255: a2=sa-255 
print Alztab(al);spc(as); mb; 

if peek (sr+t3l)and 1 %>0 then 310 
sa=sa+40:if sa: 10*40+pl then 180 
print "MH"; 

if sa,=10%40+pl then 150 

rem * explosion *# 
poke34272,0:poke34273,20 
poke34277,127:poke54278, 250 
poke54276,129 

for du=1 to 15 

poke 54296, 16-du 

poke 53280, int (1ö*rnd (0) ) 

poke 53281, int (1ö6trnd (O)) 

poke 36877, 128+int (20%#rnd (0)) 
for t=1 to SOrınext t 

next du 

poke 534296,0 

poke 33280, 14:pokeS3281,6 
poke54276,0 

print "Ssie haben"spo-1ls "punkte" 
rem sprite daten 

data 0,0,0,0,0,0,0 

data 0,0, 0, OÖ, o, 12,6 

data 0,24,3,0,564 3, 128 

data 120,53, 192, 120,3, 2 248 
data ee 7 
data 24,127,31,192 ‚127, 191, 192 
data 63,255, 128.31,255,0, 15 
data 254,0,53,248,0,0,0 

data 0,0,0,0,0,0,0 
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Mini-Mancala 


Mini-Mancala beruht auf einem alten arabischen Spiel. Es wird gespielt mit 
Steinchen, die zwischen Schälchen hin- und herbewegt werden. Es gibt vier 
Schälchen: A und B gehören dem Computer, C und D gehören Ihnen. Am 
Anfang des Spieles sind in jedem Schälchen zwei Steinchen. 


B (Computer) 


BIO 
O0) 


C (Sie) D (Sie) 


Abwechselnd nehmen die Spieler die Steinchen von einem ihrer Schälchen und 
verteilen sie entgegen dem Uhrzeigersinn auf die anderen drei Schälchen. 
Beispielsweise könnten Sie die Steinchen aus Schälchen D wie folgt verteilen: 


od 


(Computer) 


= 


im Gegenuhr- 
zeigersinn 


DIE 
VI® 


C (Sie) D (Sie) 


Nach diesem Zug ist Schälchen D leer. Es wird immer zumindest ein Schälchen 
leer sein, da während eines Zuges keine Steinchen in das Schälchen, von dem 


sie weggenommen wurden, zurückgelegt werden dürfen. 
Wenn Sie alle Steinchen in Ihren eigenen Schälchen haben, dann haben 


Sie gewonnen. 
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Auf dem Computer werden die Schälchen dargestellt durch Quadrate mit 
Ziffern, die angeben, wieviel Steinchen sie enthalten. Sie können den Schwie- 
rigkeitsgrad wählen: 1,2 oder 3 (1 istameinfachsten), und auch, wer den ersten 
Zug hat. Der Computer wird Sie fragen, von welchen Ihrer Quadrate Sie die 
Steinchen wegnehmen wollen und wird Ihnen sagen, welcher Zug er selber 
macht. Die Verteilung der Steinchen auf dem Brett wird nach jedem Zug ange- 
geben. 

Sie werden vielleicht überrascht sein, daß dieses komplizierte Spiel in 
einem so kurzen Programm beschrieben werden kann. Das Diagramm zeigt alle 
möglichen Züge und ist ein excellentes Beispiel dafür, wie ein strategisches 
Spiel schematisch wiedergegeben werden kann. 

Mini-Mancala ist eine Schöpfung von C. Freeling. 
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10 
20 
530 
1) 
40 
30 
Hu 
7o 
80 
90 
110 
200 
210 
el 


1) 


rem * c-54 mini-mancala * 
dim b(3),su (5) 
def fnsp (x)=15+80% (x SE) +bo% (KH 


and and 


for i=0 to} 

b(i)=2 

read su (i) 

next 

data 2,0,5,1 

e$=' IEREREERTIEEERERTEE STREET DI De Fe De a 
goto 1000 

rem * schirm zeichnen * 
print"=i'" spc (15) "mini-mancala" 
print 
print 


spc (11) " a'spe (13) "b" 


240 
250 
21-18) 
270 
280 
290 
Z00 
>10 


Se) 


print 
print 
print 
print 
print 
print 
print 
print 
print 


spe (11) " 


spc (11) 
spc (11) 
spc (11) 
spc (11) 
spc (11) 
spec (11) 
spec (11) 
spc (11) 


LIE E PEPTTPPE PR ETDT ee 


von 
r} 


J 


wumudfß 


] 


fJ 


ı BER ORREEEIEIESEEINENEES "EL NERRIERESARRRERISSSERN I |, 


330 
340 
400 
410 


print spc (11) " c"spc (19) "d" 
return 

rem * zug eingeben # 

print e%#" 

"e$; 
input"schaelchen 
if s$="" then 410 
set (sec!) Ir (she'd") 
if s=-O or b(s)=0 then 410 
return 
rem * zug des computers #* 


print e$"jetzt bin ich dran 


450 
440 
450 
460 
470 
00 
S310 


(c,d)"z;s$ 


>20 for de=1 to SO0ınext de 

SEO if lei and rnd (Ö)#lei.d then s=int ( 
rnd(O)t2)ıgoto 560 

540 q=b (2) +10%* (b (L)+1O#b (O)) 

oO s=l 

560 if qeil43 or q=1l34 or q=eöll or q=ll6 
then s=0O 

570 if b(s)=0 then s=l-s 
580 print e$"ich nehme aus 
d$("ab"„s+1,1) 

&00 return 

700 rem * im gegenuhrzeigersinn verteile 
n * 

710 d=ss 


"mi 


720 
730 
740 
750 


for c=1 to b(s) 

for de=1i to 400:next de 
d=su(d) 

if d=s then 740 


760 b(s)=b (s) -1 


770 
780 
790 
[016 
810 
1000 
1010 
1020 
1030 
1040 
1050 
n) u 
1050 
1070 
1080 
1090 
1100 
ver 
1110 
rn! 
1120 
1130 


print "SEEEEREEN"spc (fnsp (s))ıb (s) 
b(d)=b (d)+1 


print "EEEERENspc (fnsp (d));b (d) 
next c 
return 
rem * hauptprogramm * 
gosub 200: rem schirm zeichnen 
print e%®" niveau (1-3)"; 
input le 


if le@i or le>3 then 1020 
print e%'"moechten sie anfangen (j/ 


input an$ 

if an$="n" then 1120 

if an$t>"j" then 1050 

gosub 400:rem eingabe des zuges 
gosub 700:rem im gegenuhrzeigersinn 
teilen 

if b(3)=8 then print e$'"sie gewinne 

"ıgoto 1180 

gosub 5o0d:rem zug des computers 
gosub 700:rem im gegenuhrzeigersinn 


verteilen 


1140 
1150 
1180 


if b(O)=8 then print e$"ich gewinne 
"ıgoto 1160 

goto 1090 

end 
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Stop it! 


Obwohl es nur ein kurzes Programm ist, gibt es einem schnellen und spannen- 
den Spiel Gestalt. 
Der Schirm schaut etwa so aus: 


Das Quadrat links trägt einen Buchstaben. Wenn es über den Schirm bewegt 
wird, sollen Sie versuchen, es durch Drücken der <SPACE > -Taste zu stoppen, 
und zwar im Bereich mit dem gleichen Buchstaben. 

Am Anfang des Spieles fragt der Computer nach dem Schwiierigkeitsgrad 
(1 ist am einfachsten, 2 ist schwieriger, und 3 ist am allerschwierigsten) und 
auch, wie oft Sie spielen möchten. 

Am Ende wird Ihnen Ihre Trefferzahl gezeigt, beispielsweise 


® TREFFER AUS 19 


Macht nichts, mehr Glück beim nächstenmal! 


10 rem * c-64 stop it! * 
20 print "=" 





40 input "schwierigkeitsgrad (1-2)"sdi 
so dt=10-3%*di 
&0 input "wie oft moechten sie spielen"; 


70 print "=" 

80 for ro=0 to 24 

90 print tab(31)"] 132 

100 next ro 

110 print "S"stab (F1);" abc d" 
1209 tu=stu+l 

130 co=int (rnd (0) #4+1) 

140 bu$=mid$ ("abcd",co,]) 

150 ro=2#int (rnd (OÖ) #12+1) 
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1680 print "=1'"sleft$(d$,ro+r1l); 

170 print '" "sbu$; 

180 for de=i to dt*9J:next 

190 print "II"; 

200 get a$ 

210 if pos(O)«39 and a$="" then 170 

220 if pos (0) >30+2%co or pos(O)=42 then 
get dus:goto 250 

250 hi=hitl 

240 print "=kl"shi;z 

250 if tu>ent then print "="'shis" treffe 
r aus"stusend 

260 for a=1l to S00:next 

270 goto 120 
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BAAB 


Ein "thema con variatione‘ ist eine Melodie die, obwohl sie auf eine bereits 
gehörte aufbaut, doch ihre eigene Stimmung und Identität hat. Dieses Spiel 
könnte als ein "thema con variatione‘ betrachtet werden, da es einige Gemein- 
samkeiten mit einem anderen Spiel in diesem Buch hat, aber dennoch seinen 
eigenen Reiz birgt. 

Sie werden 16 mit einer zufälligen Anordnung von As und Bs belegte 
Felder sehen, z.B. 


Wenn Sie eins der Felder eingeben (unter Verwendung der auf dem Schirm 
gezeigten Taste) werden alle Buchstaben auf der horizontalen und vertikalen 
Reihe durch das Feld verändert, und zwar so, daß alle As zu Bs werden und 
umgekehrt. Ihr Ziel ist es, mit einem Schirm aufzuhören, der so ausschaut: 
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iO rem * c-&44 baab * 

a0 dim b (4,4) 

=0 rem * initialisieren 
4) for r=i to 4 

s0 for c=1 to 4 

&0 b(r,c)=int (Errnd (O)-]1) 
79 next cır 

80 print "="; 


1000 
1010 
1020 
1050 
1040 
1US0 
1060 
1070 
1090 
1100 
1110 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
1175 
1180 
1190 
1200 
1210 
1220 


1.30 


rem * bildschirm zeichnen 
print "ZEEI"stab (16), "1254" 

for r=1 to 4 

print 

print tab (IF) ;str&(r)+" "; 

for c=1 to 4 

if b(r.c) then print "b"s:goto 
print "a'; 

next c,r 

rem * zug holen * 

print:print 

print spc (14) "reihe mn 
input r 

if rl or r>4 then 1120 
for c=1i to 4 

b(r,„c)=enot b(r,c) 

next 

print spc (14) "spalte="; 
input c 

if cl or c>4 then 1170 
b(ir,c)=not b(r,c) 

for r=el to 4 

b(r,c)=enot b(r,c) 

next 

goto 1000 
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Vokale und Konsonanten 


Dieses Wettbewerbsspiel kann von der ganzen Familie gespielt werden. Anders 
als andere Computerspiele enthält es keine Zahlen oder Arithmetik. Am Anfang 
des Spieles geben Sie die Zahl der Spieler ein, und dann fängt es an. 

Der Computer wird Ihnen sieben Buchstaben geben: 

Wenn er Sie fragt: 


VODERK? 


geben Sie V für einen Vokal und K für einen Konsonanten ein. 

Wenn Sie Ihre sieben Buchstaben beisammen haben, fordert er Sie auf, 
daraus ein möglichst langes Wort zu machen, wobei Sie jeden Buchstaben nur 
einmal verwenden dürfen. Es gibt eine Zeitgrenze, sie wird auf einer Uhr auf dem 
Bildschirm angezeigt. Erstaunlich ist, wie schnell man diesem Spiel verfallen 
kann. 


Probieren Sie, und Sie werden sehen. 





10 rem * c-64 vokale und konsonanten * 
0 print "="; 

=0 input "zahl der spieler";np 

40 if npil then 20 

50 dim po (np) ,c$(7),wo$ (20) 

0 goto 1000 

100 rem * buchstaben waehlen * 

110 les="" 

120 print "Ekug des spielers";pl 

150 print "v oder KK?" 

140 for du=si to 7 

150 get in$ 

160 if in$z>"v" and in$i>"k" then 150 
170 if in$="v" then ch$="aeiou" 

180 if in$="k" then ch$="bedfghjklimnpars 
tvwxyz" 

190 c$=mid$ (ch$,rnd (O)*#len (ch$) +1,1) 
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ZOO 
210 
220 
250 
OO 
>10 
Se2d 
5:19) 
>40 
en p 
5345 
54=18) 
6-18) 
>70 
e 
75 
5118) 
90 
(8) 
400 
410 
420 
SOO 
S10 
rer 
550 
540 
SO 
S60 
Ssg0 
570 
380 
SO 
else) 
&10 
H2U 
6.50 
&40 
1900 
1010 
LOZO 
1030 
int 
1040 
1050 
1050 
1070 
1080 


le$t=le$+c$ 

print c$; 

next du 

return 

rem * wort eingeben * 

le=0O 

print "Ekzeit in sekunden"! 

for tm=45 to OÖ step -1 

print "KEREFEN "ssif tmilo th 
rint " "n 

print tm 

for de=1 to 48 

get in$ 

if tin$:>chr$ (20) or le=0) and (in$ 
or in$:>'"z'") then 410 

if ler6 and in$t>chr$ (20) then 410 
print "EEREEREE" tab (le+l) sin 

if in$=chr$ (20) then le=le-l:goto 41 


le=le+1:w0$% (le)=in$ 

next de,tm 

return 

rem * punkte berechnen * 

for c=1 to 7 

c$(c)=mid$(le$,c,1) 

next 

for co=1 to le 

for c=l to 7 

if wo$(co)=c$ (c) then c$(c)=""ıgoto 


next cıgoto HU0O 
next co 
po(pl)=po(pl)+le 
print "EEREEEEEEE" ; 

for p=1 to np 
print"spieler"sp:":":po(p);" punkte" 
next p 
return 

rem * hauptprogramm * 

for pl=1 to np 

gosub 100: rem buchstaben waehlen 
print"=bilden sie ein wort ausi'":pr 
tab (d) ; le$ 

gasub 300:rem worteingabe 

gosub S00:rem punkte berechnen 

next pl 

goto 1010 

end 
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Astrologie 


Dieses Programm baut auf einer Untersuchung auf, die vom holländischen 
Physiker und Astrologen Dr. Ing. van Slooten durchgeführt wurde. Er war 
Entwicklungsingenieur bei Philips, der seine gesamte Freizeit mit Astrologie 
zubrachte. Er entwickelte eine Theorie, die besagt, daß die Mondphase zum 
Geburtszeitpunkt einen sehr wichtigen astrologischen Einfluß auf den persön- 
lichen Charakter habe. Nach einer Untersuchung von Hunderten von Men- 
schen zog er den Schluß, ”... daß die Mondphase das Ausmaß bestimmt, zu 
dem sich das geistige und emotionelle Leben entwickeln wird, insbesondere 
unter Berücksichtigung des persönlichen sozialen Umfeldes, und darüber hin- 
aus die Rolle, die er oder sie in unserer Gesellschaft spielen wird... .” 


Das Diagramm zeigt die Zyklen der Mondphasen. Da es drei Phasen gibt, 
zunehmend, voll und abnehmend, können drei Typen von Personen festgelegt 
werden. 


Individualisten: 

Geboren bei zunehmendem Mond haben sie zunehmende Energie. Sie 
arbeiten gerne selbständig, haben einen starken Willen, und werden durch 
körperliche Unbequemlichkeiten nicht entmutigt. 


Sozialisten: 

Geboren in der Vollmondphase, leben sie gerne in Gemeinschaften. 
Schlüsselwörter für diese Leute sind “vergleichen”, “wählen” und “‘kombinie- 
ren’. Kooperation ist ein dominierender Faktor, aber es gibt auch Rivalität und 
Neid. 


Konservative: 

Geboren unter abnehmendem Mond, wissen sie, daß das Licht abnimmt, 
aber wieder zurückkehren wird. Sie sind sorgfältig und selbstsicher und haben 
gerne alles unter Kontrolle. 

Diese drei Typen können weiter unterteilt werden; man erhält zwölf Kate- 
gorien insgesamt. 


Pioniere sind Sucher, immer der Masse voraus. Die Stärke ihrer Willens- 
kraft laßt sie manchmal eigensinnig scheinen. 


— 


Koordinatoren sind gerne unter Menschen, aber fühlen, daß Sie "glei- 
cher’ sind als ihre Mitmenschen. Sie sind romantisch und Familienleben zieht 


sie sehr an. 


122 


Realisten schauen auf die Welt in einer wirklichkeitsnahen Weise. Sie 
denken gerne, daß alles mit rein physikalischen Begriffen erklärt werden kann. 


RR 


Spiritualisten sind ziemlich "'jenseitige‘' Charaktere. Philosophisch von 
der Auffassung her sind sie auf der Suche nach dem Unbekannten. 


DD 


Künstler verwandeln Materialien in einer kreativen Weise. Sie können 
Kunstwerken, neuen Produkten oder irgend etwas, was es vorher nicht gab, 


Gestalt geben. 


Apostel sind nicht selbst kreativ, sondern verbreiten die Ideen von ande- 


( 


Helfer nehmen Verantwortlichkeiten für ihre Mitmenschen auf sich, die 
sonst möglicherweise ignoriert würden. Sie sind hilfsbereit und kümmern sich 
um andere. 


ren. 


6 
Führer nehmen auch Verantwortung auf sich, aber in diesem Fall für die 


Leitung von Leben und Taten anderer. Sie schauen vorwärts, wo die meisten 
Leute es vorziehen würden, rückwärts zu schauen. 


| 


Ritter sind furchtlose Abenteurer, immer auf der Suche nach neuen Din- 
gen. Mit ihrer idealistischen Auffassung haben sie ein starkes Ehrgefühl. 
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 Gebieter führen gerne den Vorsitz bei Taten anderer. Sie urteilen über 
Dinge nicht voreilig, aber wenn sie eine Entscheidung treffen, erwarten sie, daß 
sie befolgt wird. 


Revolutionäre sind mit der Welt, so wie sie jetzt ist, unzufrieden. Sie 
neigen dazu, die Dinge negativ zu sehen, und haben das Verlangen, die Welt zu 


verändern. 


Propheten beschauen die Welt "von oben” und prophezeien die Zukunft. 
. Auf sie wird natürlich nicht immer gehört. 


IK 


Das Programm sagt Ihnen die Mondphase am Tag Ihrer Geburt. Daraus 
können Sie die Geheimnisse Ihres Charakters entdecken! 


iO rem #* c-64 mondphasen astrologie * 
20 goto 1000 

100 rem * datumseingabe * 

110 print "Smondphasekkl" 

120 input "tag tt "ıdd 

130 input "monat mm "sm 

140 input "jahr jjjj"sy 

150 if mfiS5 then m=em+1l2:y=y-1 

150 return 

200 rem * berechnung * 

210 t=int (365. 25%#y) +tint (30.6% (m+1)) +dd-6& 
94558 

a20 t=t/36525 

250 1a=350.737486+1236*1%360 

240 la=la+t307#t+6*t /60 

250 la=sla+51. 181 /3600-5.17%1%*1 /3600 
260 la=la-int (la/380) #360 

270 la=int (la+.S) 

280 return 

>00 rem * anzeige des ergebnisses # 
>10 print "EEmondphase="la" gradkkl" 
S20 return 
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1000 
1010 
1020 
1030 
1040 
1050 
10640 


rem * hauptprogramm * 

gosub 100:rem datumseingabe 
gosub 200:rem berechnung 

gosub 300:rem ergebnis anzeigen 
print "druecken sie eine taste" 
get a$:if ag="" then 1050 

goto 1010 
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